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age an oe “er 
FILE? XBASIC/UTILY FRIDAY OQ4/22/77 04220 PM 

$ SET SINGLE BEND 

BEGIN 
COMMENTEIisr seers etre tes ase seh esses sl er eleeeseectesegeeetggeggnssags 
$3igs :itss 
atest XRASTC == A CONVERSATIONAL BASIC INTERPRETER teags 
tris: MK XV 4.04% 1 DECEMBER 1975 sae38 
tsigs $2823 
SSPRETE TEESE TTT Te SSSR SERS T ETE T ET TUES SESS SEER TREE cases etessse: 


FROM BURROUGHS BASIC TN CERTAIN MATTERS OF NETAIL. 
ALLOWED IN xXRBASIC FORM A SUBSET OF THE COMMANDS AVAILABLE UNDER CANDE. 


XBASTC IS A BASIC INTERPRETER DEVELOPED FOR THE BURROUGHS RANGE 
OF COMPUTERS RY STAFF AT PAISLEY COLLEGE OF TECHNOLOGY. ITS PURPOSE 
IS TO PROVIDE FAST RESPONSE TO STMPLFE RASITC PROGRAMS UNDER TIME= 
SHARINGe ACTUAL RUNNING OF PROGRAMS IS MUCH SLOWER FOR XBASIC» BUT 
EXPERIENCE SHOWS THAT MOST CLASS TIME IS SPENT ON INPUT AND COMPILE. 


XBASIC IS AN IMPLEMENTATION OF STANDARD BASIC» AND DIFFERS 
THE COMMANDS 


FILES ARE EDITABLE UNDER CANDE, TRACE AND UNTRACE STATEMENTS 


_AN BE MANE AVATLARLE = SEF LINES 83300783400 AND 107300"108700. 


XBASTC OUTPUT MAY BE DIVERTED FROM REMOTE TO PRINTER ("SEND"), 
VIDEO TERMINALS ARE SUPPORTED FOR EASY CORRECTION OF SOURCE PROGRAM. 
PROGRAMS ARE MONITORED FOR EXCESS LOOPING. 


TO USE XBASIC FROM THE BATCH TERMINAL» THE FOLLOWING 


CARDS SHOULD BE SUPPLIED: 


? EXECUTE OX BASIC/UTILITY 
2? COMMON=2 
“P DATA. CRD’ ae 
CINSERT DECK HERE? 
ENS 


USE TERMINAL FORMAT) 


O 


aad eheathangnes ‘cans pe egies a4 ae ee ae ee ee oot ee oe at een hearee ee . 
ee aed De ET A ECA UEC E USE ECE. PGR EEE NEES ARE a rte 


COMMENT. 
TRE BLOCK STRUCTURE FOR. THE PROGRAM TS AS FOLLOWS: 


ied eo ee! {mmm my 


1 SOURCEIN: 4 / OES x 

START ReSR at R EXECUTE 1""RUN@>er eh UBJECT > =8YESmas >a e=x 
ye. 1. COMMANDS 1 KO EXYST 2:7 

A RR ee RES ee 7 V 

1 1 1 1 

1 1 CYFS) Vv ¢NO) 1 

1 opt SCORES. nihatoe x 1 

1 AT BNY COR AO oa a 1 

cee € SYNTAX. >wwmnemcemeny COMPILE! 4 1 

EPS ERRORS BLE (OO eg be. ae A 

1 Ream ce) Sort eersene ee 1 

1 1 ‘i 

7 4 me PAOD 1 

4 Sede 1 

1. © ak: fad mk ip en . : j 

2 xanmcenny EXECUTES (Op Stars ea tte eee name coneanm enn tamen/ 


nO we a oe wm 


90900100 
00000200 
00900300 
00000400 
00000500 
00000600 


00000700 


00000800 
00000900 
00001000 
00001100 
90001200 
90001300 

00001400 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002300 
00002400 


00002500. 


00002600 
00002700 
00002800 
00002900 
00003000 
00003100 
00003200 
00003300 
090003400 
00003500 
00003600 
00003700 
00003800 
00003900 


00004000 


00004100 


00004200. 


00004300 
00004400 
00004500 
00004600 
00004700 
00004800 
00004900 
00005000 
00005100 
00005200 
00005300 
00005400 
09005500 
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INTEGER 


INTEGER ARRAY 


— INTEGER 


REAL. 


TU3 


REAL ARRAY 


BOOLEAN cee 


% (COMMON) 


PROGLOI20O0+,2t11)% 


SSFQCO?2001. 


STYPs 


SPNBLLt2001. 


SUBC1!26]>» 


ARRE 1226903215 
STRAREL122600%115 
IQBLLSP 40s TOF LLILO]» 
TOREC1244) 4 


KEYCLt3AR1» 


FNMEU23,49213 


ORJLO89097»5— 
FORXOCAULLOs12475 
_CONSTL1:100015 


ANSALOI9]»s 
Tocorals 


MS» 


ACS» 


“CSs 


CHA » 
CP» 
LP» 
COs 
QU» 
MSTOQs. 
MSTR» 
NCON» 


 DELIMe 


TIM, — 
Lie 


. AREASIZE» 


BEGs 

EN» 

NDEP » 
ADDR» 
FORE »FORCs 


fe ee 
ArBeColsK3 


ReSoTs 


OBJECT> 
STRING | 


HOOR» 
INFILTOGs 


_ OUTFILTOGs 


FIRSTCFFs 
DANGER» 
VAR» 

SY» 

EQOK » 


5@ 2 GO Fe FQ RN RE BE GR We BE 9S BO BE RE BE RM Bd 


ae 


we a BE 22 BO Be FO ae ae BE 


INPUT UNTT#O VQOUst TTYs2 cRrD 


SOURCE STRINGS 
SEQUENCE NUMBERS 
STATEMENT TYPES 
POINTERS TO OBJECTPROGRAM 
INFO CN USER FUNCTIONS 
ARRAYS 
| STRING ARRAYS 
1/0 PSEUDOBUFFERS 
" vt 


COMPILE KEYWORDS 
FILENAMES FOR EXECUTE 


a8 Fe of Me PE 22 RE BE RE RR DP 


PSEUDO"OBYECTPROGRAM 
INFO ON FOR STATEMENTS 
SQURCE PROGRAM CONSTANTS 
FOR DISK SEARCH 
FILENAMES 


NUMBER OF LINES OF PROGRAM 
FIRST EXECUTABLE STATEMENT 
CURRENT STATEMENT NUMRER 
CURRENT SOURCE CHARACTER 
POSTTION OF CKA IS SOURCE 
SEE LUOK 

POSTTION IN OBJ . 

QUTPUT UNIT CO REMOTE, 1 PRINTER) 
CURRENT TOP OF ARRAYS 
CURRENT TOP OF STRING ARRAYS 
NUMBER OF CONSTANTS 


SEE NCH 


MAX EXECUTION TIME €2 MIN USUALLY) 
CURRENT LINE NUMBER IN INPUT PAGE 
FOR EXECUTE OUTPUT FILE IF ANY 
LIST COMMANN INITIAL LINE 

FINAL LINE 
ARITH STACK COUNTER 
CURRENT VARIABLE ADDRESS 


HELP COMPILE FOR NESTS 
NUMBER OF EXECUTE FILES 


HASH - 


HASH 


"THERE IS AN OBJECTPROGRAM” 
"EXPRESSION IS A STRING" 
"PRINTER HEADER PRINTED" 
"PROGRAM NEEDS INPUT FILE” 
"PROGRAM NEEDS GUTPUT FILE" 


WHELLO" 


"NEW MATERIAL IN WORKFILE” 
"EXPRESSION IS A VARIABLE" 
"PROGRAM CONTAINS SYNTAX ERRORS" 
"EXPRESSION MAY CONTAIN =" 


00005600 
00005700 
00005800 
00005900 
00006000 
00006100 
00006200 
00006300 
00006400 
00006500 
00006600 
00006700 
00006800 
90006906 
00007000 
00007100 
00007200 
00007300 
00007400 
00007500 
00007600 
00007700 
00007800 
00007900 
00008000 
00008100 
00008200 
00008300 
00008400 
00008500 
00008600 
00008700 
00008800 
00008900 
00009000 
00009100 
00009200 
09009300 
00009400 
900009500 
00009600 
00009700 
90009800 
00009900 
00010000 
00010100 
00010200 
00010300 
00010400 
00010500 
00010600 
00010700 
00010800 
00010900 
00011000 
00011100 
00011200 
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POINTER 


FORMAT WHT 


STP 


AA} & “SUCCESSIVE EXPNS TO PRINT" 
PINB » & START OF LINE IN 108f*] 
PINS» % CURRENT CHARACTER " 
PIRBE» % LAST CHARACTER IN IQREC1) 
POBs % FIRST CHARCTER IN OBJE*) 
APRsBPRy»CPR$ % HASH 


C"NERR@= ",a6," IS NOT A COMMAND IN XBASIC)>» 

C/MEND "#A6)o | | 

Cf 0906 

CNMORE THAN 190 GOTOS. IS YOUR PROGRAM ALL RIGHT?) » 
CA3)» 


ere FRROWS? CLEAR SCREEN AND TRANSMIT A SPACE)s 


CMSYNTAX ERRORSE")>» 


CMWATTEN), 
CMEXECUTING™)» 


CVILLEGAL NUMRER") >» 


_LNGPRGC "PROGRAM TOO LONG AT LINE "s16)s 
INVIT C™VDU ASSUMED = ELSE SAY TTY)» 


DVA 


FQ 


tae 


Fil 
Fl2 


eae 


CPOUTPUT TS BEING DIVERTED TO PRINTER") >» 


CyMEXECUTION STOPPED = EXCESS TIME."/ 


"FOR LONG PROGRAMS USE MAIN ee 
CX72sTB)» 


‘CMUSE RENAME AXKXKK OR SAVE XXXXXX COMMAND)» 


C"ERR? THIS WILL DELETE THE wORKFILE")» 
CNQK=@ “yt ay RECARNS + Aba Ds LAST RECORD ="517)» 
CYPILE "tsA6e™ ™ "ps AGsAl," BY XBASIC™), 


‘CMYOUR WORKFILE IS AS AT LAST RUN COMMAND") » 
— C16sX35"01M OR FILES STATEMENT OUT OF SEQUENCEN/ 


"ERR RUN)» 


~ CMWORKFILE NOW EMPTY)» 
("FURTHER QUTPUT WILL BE PRINTED WHEN YOU SIGN OFF"), 
—CX402"XBASTC MK XV"sX8e "RUN 


ty AGP "DAY We 
A2Qe™/" Aaah /* eo AOe/XS49"USER NO, “#A3r A449 /X52e 20CMRM)//) 


C"XBASTC TS RUNNING!" )» 


CNUNNAMED WORKFILE HAS"»I49" RECOROS» LAST RECORD ="»16)>» 


CA6s" CWORKFILE) HAS"»+ 14s" RECORDS» LAST RECORD ="516)- 
CYERR™ ILLEGAL PARAMETER)» | | Ve 
CUARE PRESENT CONTENTS OF FILE "246s" TO BE DESTROYED?")3 


SWITCH FORMAT NUME=(U10)2CU6)9CX20210)3 
SWITCH FORMAT MNPrsC"NOT ENOUGH INPUT AT LINE sl 6sX5e"TRY AGAIN)» 


CMBLANK INPUT AT LINE"s 169XSe"IGNORED™)3 


FILE TTY 19C2,10)3FILE IN CRD 2(210)3FILE IN VOU 19¢4,240)3 7 
FILE OUT LIN 1¢2614)3SWITCH FILE FNESTTYsCROSSWITCH FILE FLSSTTYsLIN3 


“MONTTOR INTOVRsFXPOVRs INDEX »FLAGs ZEROS 


LABEL. SOURCE IN» COMPILE /EXECUTEsSTOPs FINSHs ERR» INCST»PER» INERs 


‘TOOL ANG) : 


LABEL. e NSH EOL SC ETOCARSONKEHDNS LFEDEEOs COT; GOSSRETSFOXONEXD 


DEF »REA»RREA,INPsRAN SRE SsPRIeRPRI#XPRISDIMSENX»REMSRE IL 
INTYRs QUOTE »sRDUMADAT*RNAT*sROIMsPAG*MATs IOMTSFLAGRe FIL» CGQ3 


00011300 
90011400 


00011500 
00011600 
90011700 
00011800 
00011900 
00012000 
900012100 
00012200 
00912300 
00042400 
00912500 
00012600 
90012700 
00912800 
90012900 
00013000 
000131400 
00013200 
00013300 
90013400 
00013500 
00013600 
00013700 
00013800 
00013900 
00014000 
00014100 
00014200 
000144300 
00014400 
009014500 
00014600 
009014700 
00014800 
00014900 
90015000 
000151400 
00015200 
00015300 
00015400 
00015500 
00015600 
00015700 
00015800 
00015900 
00016000 
00916100 
00016200 
00016300 
00016400 
00016500 
00016600 
00016700 
009164800 
00016900 


eecececeeowree eee em ewww anaes 


SWITCH 
DEF »DAT 


DEF INE 


INTEGER 


~ BEGIN. C 


TF oA GT 
IF a GT 
COMMENT 


ANTEGER 


BEGIN J 
TOBEL13 

R 
~CPR:=PQ 
REPLACE 
IF TOBE 


END. END 
COMMENT. 


INTEGER 


BEGIN £, 
DEFINE | 


CHALSNM 
NST 
RNB? 
NMBREsC 
_SKR 


“8 
po 
COMMENT 


OPNISLETs GOT» GOS*RETs INP*REAPPRIo FOXsNEXPMATS 
sRAN®PAG®SRESPREMeENX eS ENXS TIFF SONKS 


ONCONDISIF CHASONL THEN #3 


EELEIEGSESELsEtsGLORAL PROCEDURESSErsttsissrtstetstitsesiee: 


iced een CONVERTS CHA TO LETTER CODE 1=26 3 


PROCEDURE CHCONVCADFVALUE AJ INTEGER AG 
HCONV?SO31F A GTR 16 AND A LSS 26 THEN CHCONV3sa"16 ELSE 


R 32 AND A LSS 42 THEN CHCONVi=sA"23 ELSE 
R 49 AND A LSS $8 THEN CHCONV!=A*34 ENDS 
eee NCH - PICKS NEXT CHARACTER FROM SOURCE STRING 
AND STORE IT IN CHA, BLANKS ARE SKIPPED. 

IF (AST CHAR@ RETURN "%" AT DELIM, 
CP TS UPDATED, IOBEC*] IS USED AS HASH,3 

PROCENURE NCHS erased 

NTEGER: ASLABEL RPT} POINTER CPR3 

PROF AL SCP3 

PTs [FCA GEQ NELIM THEN CHASSNCHre"%" ELSE aEGIN 

INTERCPROGICSe23)4A3 


PIBE BY CPRICPR FOR 13A3=A+13 
[11]=48 THEN a0 TO RPTSCHALTSNCHISIOBELLISCPE=A 


’ 


‘oe 


mmm NMBR : PICKS UP STATEMENT NUMBER 
PROCEDURE NMBRCNQS VALUE NS INTEGER N3 
ABEL DONE sRNBsBLKaNSTsSKB3 


RDCROLISREPLACE BPR BY APRSAPR FOR 13 


IF DELTACRINGW APR? GEQ RD1 THEN GO BLKSIF IOBEL1I43 
BRt=lOBEL11:=0 
: CaO ene THEN GO NST3IF (CHAt=IQBEC1}) GEQ 10 THEN GO DONES 


: RD€72) £58 10 THEN BEGIN CHA!=CHAx10+IDREL133GO RNB ENN$ 
HASCHAtSIOBELLIZIF CHA NEQ@ 48 THEN GO DONE: 
t  RDC72)248 THEN GO SKB3CHA:sI0BEL1)3G60 DONE: 
LKi CHARS; 
NE 3 ENDS 
oem. FILECONTROL DEALS WITH SOURCE FILE OPERATIONS 
AsO "MAKE™/"RENAMEM, 


"Saye, 2 "LOADS" COPY, 

"REMOVE's 4 SAVE WORKFILECAT RUN") 
LOAD WORKFILECAT XAASTC ENTRY)» 
EXPLICIT REMOVE CAT "BYE"*ETC) 
EXPLICIT SAVE» 8 EXPLICIT LOAD} 


See Wears oo 


PROCENURE FILECONTROLCAsCsDelLISVALUE AsCeDS INTEGER ASREAL CrD$ LABEL 3 


BEGIN I 
PROCEDU 


%* C ANN D CARRY LABEL FQUATE FOR EXPLICIT OPERATIONS 
NTEGER ReXsY3 
RE FILERRCE)SVALUE ES INTEGER E3 


00017000 
90017100 
00017200 
00017300 
00017400 
00017500 
00017600 
00017700 
00017800 
00017900 
00018000 
00018100 
00018200 
00018300 
00018400 
00018500 
00018600 
00018700 
00018800 
00018900 
00919000 
00019100 
00019200 
00019300 
00019400 
00019500 
00019600 
00019700 
00019800 
00019900 
00020000 
00020100 
00920200 
00020300 
00020400 
00020500 
00020600 
00020700 
00020800 
00020900 
00021000 
00021100 
00021200 
00021300 
00021400 
00021500 
00021600 
00021700 
00021800 
00021900 
00022000 
00022100 
00022200 
00022300 
90022400 
00022500 
00022600 


a er ee ee a a ae ae a a9 


eee ee 


@®eeeeeee#eee%eee%*@ee#ee#8e#8 @ @ 


i 
| 
i 
i 


j 


i 
| 
i 
| 
i 


f 


i 


i 


i 
H 


FOR CSt=1 STEP 1 UNTIL MS 00 BEGIN 


BEGIN SWITCH FORMAT FRRESC"ERR™ “sA3sA4e"/*sA32A4s"—= NOT ON DESK)» 
CNERR@ ys AZe Ade / ep ARe Ade” @ INVALID USER)» 
CNERR™ "yA Ade" / es A3r Aas" @ NON“STANDARD" Do 
CNERR™ ADs AAS pA Re AG” * ILLEGAL NAME")> 
CMERR@ MsA3rA4s/ se A3eA4e™% @ DUPLICATE NAME) 5 
C™ERR@ NO FILENAME)» 
C"ERR™ WORKFILE")+ 
(NERR= WORKFILE TS EMPTY")3 


_TF f>4 THEN WRITECTTY,ERREFEJ) ELSE WRITECTTY*ERRCEJ> 


FOR X!=Be2 00 UrOEkAs t44:18)>T0°X].£23224)1)93 

IF B=O THEN TOCOVs=O37F Ast AND ES3 THEN WRITECTTYsFi 3 

GQ SOURCEIN FND3 
LABEL SKIP sMKs SValLDaRMpEFs SWe Li PEW 
SWITCH OPSSMKsSVeLOeRMpSWolL We RMe SVELD3 
FILE DSK DISK "XRWKFL %(2510»9300s%SAVE 7)3% NB LABEL EQN ABOVE SKIP 


-TF DANGER AND (CS"CREATE"™ OR Az2 OR Az6) THEN BEGIN DANGER?=FALSE3 
WRITECTTYsF2)3G0 SGURCEIN ENDS 


BistF AFtO THEN O ELSE 431F A>3 THEN BEGIN 

FILL DSK WITH C»D? TOCTT=Cs31OL2712203G0 SKIP FND: 

TOLaIss" "5 %® FILENAME 

SCAN APRIAPR FOR § UNTIL NEQ " "ELF DELTACPINBsAPR)<12 THEN 


; REPLACE POINTERCIOLBI)+1 BY APRIAPR FOR IF a<2 THEN 6 ELSE. 7 


WHILE IN ALPHA 

IF yoatgy=s" " THEN BEGIN % ON SAVE SAVE WKFILE IF NO NaME 
IF Ast AND IOCO] NEG 9 THEN [OCi1?:#10f0] ELSE FILERR(5) ENDS 
TOCATS=O3TF A GTR 4 THEN BEGIN % PROCESS "“/USERCONE’ IF PRESENT 


SCAN CPRICPRi=APR FOR 410 WHILE NEQ Wate DELTACPINBsCPR) LSS 15 THEN 


BEGIN TOC2]¢s" Megs 
REPLACE POINTERCIOL21)41 By APRICPR+1 FOR 7 WHILE IN ALPHA END ENDs 
‘IF ror2]=0 THEN. LOc2]tsTIMecn1)3 
TF TOCBI="xKBWkrl * OR 7OrB1.041236)] LSS oo THEN FILERR(3)3 
FILL OSK WITH TOCRI>1NC21305K,SAVES 
SKIP! IF NOT FIRSTOFF THEN BEGIN Xt sere Aueaerem 
IF y NEQ@ 0 OR CHA NEG. 1a" THEN GO PERS CHAS=xX END? 
fechiass ees IF CA=5 OR As6) AND ANSACOJ]="1 THEN GO L? 
IF AsO AND ANSALOY NEQ =1 THEN FILERRC4)3 


IF Ast AND ITOC1) NE@ INfoO) AND ANSALO] NEQ =1 THEN FILERRC4)3 
IF A>i AND A NEQ@ 4 THEN BEGIN IF ANSALO] LE@ 0 THEN FILERRCANSALOI+1)3 


IF ANSAC3] NEQ 10 OR ANSALC4I] NEG 300 THEN FILERR(2) END? 


TF CHASMMAKEOO" THEN BEGIN MStsOs08VECTI=FALSE ENDS 
GO OPLAtt Ti ; 


SV? «TF. LOLOJ=0 THEN IOCOJ!S10CB]3  % NAME WORKFILE 


TF WSs O THEN FILERRC7I3IF ANSALO] NEQ =1 AND ANSALO] NEQ 7 THEN 


FILERRC1)3DSK,AREAS2=203 DSK. AREASIZE2 =103 


REPLACE POINTERCIOBELI0]) BY SSEQLCS) FOR 8 DIGITS; 
REPLACE POINTERCIOBRE*1) BY POINTER(PROG[CS,2]) FOR 9 WORDSS 
WRITE COSKs10*sTOBEL*1) ENDJLOCKCOSKIIDANGER?=FALSE3GO MK 

LDS FOR MSt=1 STEP 1 UNTIL 200 DO BEGIN % LOAD FROM 


READCDSK»10eIOBEC*))LCEFIZSREADCIOBEL*1»SNUMsSSEQEMS])3 % CANDE FORMAT 
__ WRITE CPROGIMSs #159» TOREL*])#PROG(MSs11]?=SSEQCMS] ENDS 


FF MSt=MSe1;30BUJECT: =FALSESLOCK(DSK)3 


“WRITE CTTYsF3sMS»C>SSEOCMS1)3 


 ONC*LOADOO") TOlOl]:=1F 10f2)s =TIMEC™ at THEN: TOLL] ELSE OFG0 MK; 
RM$ IF IofB1sTOLO] AND A=3 THEN BEGIN IF MS=0 THEN 
TOCOJ#=2O ELSE FILERR(6) ENDSIF ANSALO] NEG 7 THEN FILERRC1)3 


% SAVE IT IN CANDE FORMAT 


90022700 
00022800 
00022900 
00923000 
00023100 
00023200 
00023300 
00023400 
00023500 
00023600 
00023700 
00023800 
00023900 
00024000 
000241400 
00024200 
00024300 
00024400 
00024500 
00024600 
00024700 
00024800 
00024900 
00025000 
00025100 
00025200 
00025300 
00025400 
00025500 


00025600 


00025700 
00025800 
00025900 
00026000 
00026100 
00026200 
00026300 
00026400 
00026500 
00026600 


00026700. 


00026800 
00026900 
00027000 
00027400 


00027200 
00027300 . 


00027400 


00027500 - 


00027600 
00027700 
00027800 


00027900 


00028000 
00028100 


(00028200 


00028300 
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— WRITECDSK»*r0)3CLOSECDSK»PURGE)IGO MKS 


Swe DSK eAREAS!=203NSK,ARFASIZES F143 
IF MS=0 THEN FILERR(7)3 
WRITECOSKe*sIOLOVISFOR CSt=1 STEP 1 UNTIL MS OO 
WRITECDSKs 1OsPROGLCSs*])SLOCKCOSKISDANGERSS=FALSE#GO MK; 


LW READCOSKs*s,TIOLCOV)SFOR MSt=1 STEP 41 UNTIL 200 NO 
BEGIN READCDSKs10-PROGCMSs*])CEWI]3SSFQLMS]2=PROG(MSs11] ENDS 
EW? LOCKCNSK IMSt=MS"1 3 O0RJECTS=FALSE3G0 MK3 
MK IF A<4 AND CHA NEQ "COPYOO" THEN 


_WRITECTTYsF4sTOlBI.041236]5C2D)3 


IF asS THEN WRITECTTYsF5)3 
IF CHAS"COPYOO" THEN WRITECTTYsSTPe"COPY. 93 


~~ GO L ENDS 


COMMENT 
om oe SYNT 


wa 


DEALS WITH SYNTAX ERRORS 


PROCEDURE SYNTCAD$VALUF ASREAL A3 
BEGIN IF SY THEN BEGIN IF IU=9 THEN nEGIN WRITECTTVeSYERD 
REANCTTYESTOP]) “END ELSE WRITE CTTY*SYRISSYI=FALSE ENDS 


REPLACE APRi=POINTERCIOBEL*]) BY " " FOR 723 
WRITE CIOBEL*]»NUMLOJs>SSEQICSI])#SCAN APRIAPR WHILE NEQ 483 


AF Tus0 THEN BEGIN REPLACE APRSAPR BY POINTERCPROG(CSs*J]) FOR 723 


APRt=POINTERCINBEL*1)+723 


REPLACE APRIAPR BY “#" FOR 1 END ELSE APRtsAPR+3} 


 WRITECT IY 2102 LOBEL #1). ELSE. WRITECTTYCONG]s40¢JNBEC*])3Gq TO ERR END3 


~ REPLACE PQB BY A FoR AZREPLACE APR BY POB+1 FOR 73 


OBJTLJ$=O3REPLACE POR+7 BY POINTERCIOBEL*1)+79 FOR 13 
IF TU GTR O THEN WRITECTTY»9*TQBEC*#]) ELSE IF OBJ£1)]=48 THEN 


COMMENT 


ae NWO MOOTFIES NCH FOR COMPILE | 5 


Saar | 


BEGIN ONC™Z") SYNTCYMISG OP™)3NWCS=NCH END} 


eowent 


a aa 


kee OPUT “STORES CHARACTER IN OBJ ie ; 


~ PROCEDURE PUTCAI3VALUE AZINTEGER As 


BEGIN IF A>63 THEN SYNTC"STR >63)3 


_ TOBECAIISAZREPLACE POR+CO BY PIBE FOR 13COr=cO+l3 
Ce IE coe GEO 8000 THEN GO. TO. TOOLONGS IF CO MOD 8=0 THEN COf=CO+L END 
SS COMMENT: 


oe Bey oe “MOVES BACK ONE SPACE IN OBY3 


DEFINE REN=COtsIF cOe(2t3]=1 THEN CO#2 ELSE cO#1#3 


ae (LOOK LOOKS “AT A STRING IN SOURCE PROG 3 


INTEGER PROCEDURE. LOK ADS VALUE AS INTEGER Ad 


BEGIN INTEGER BeCeDeES FE SCHASB3aCPs 


FOR O3=1 STEP 1 UNTIL A™ " ee IF CHA NEQ "%" THEN Ci=Cx644NWCs 


LOOKS=C3LPISCP3CPIsB3 CHAISE ENDS 
COMMENT 
“v8 NUMB 


we 


PICKS UP DIM AND MAT SIZES 


INTEGER PROCENURE NUMB$ 


* 
£ 


00028400 
00028500 
00028600 
90028700 
00028800 
00028900 
00029000 
00029100 
00029200 
00029300 
00029400 
00029500 
00029606 


00029700 


00029800 
00029900 
00030000 
00030100 
00030200 
00030300 
00030400 
00030500 
00030600 
00030700 
00030800 
00030900 
00031000 
00031100 
00031200 
00031300 
00031400 
00031500 
00031600 
00031700 
00031800 
00031900 
00032000 
00032100 
00032200 
00032300 
00032400 
90032500 
00032600 
00032700 
00032800 
00032900 
00033000 
00033100 
00033200 
00033300 
00033400 
00033500 
00033600 
00033700 
00033800 
00033900 
00034000 
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BEGIN LABEL RPSINTEGER A} 


Ais=03 
RP: TF Nwe LSS 10 THEN BEGIN AS=Ax10+CHA3GO TO RP ENDS 
IF AsO THEN SYNTC"IL STMT" )3 


NUMAt=eA ENDS 


COMMENT 
m==  ARITHC1) «= CONVERTS EXPNS TO REVERSE POLISH 3 


PROCEDURE ARITHCTT)S VALUE TTS INTEGER TTS 


BEGIN INTEGER Tr As Qo Ce JsKe OP sSTCKS BOOLEAN INMOKs VOKsSTROK3 


LABEL, S*#SSsRPTsEXPONSDONESFINEVsFORM1 sFORM2sFORMIeFING RP3 
INTEGER ARRAY OPKC 432073 


COMMENT == AN «EYPRESSYMN CONSISTS OF A NUMBER OF PRIMARTES 

SEPARATED BY OPERATORS», POSSIBLY PRECEDED BY INITIAL =. 
— PRIMARTESS . OPERATORS 
NUMBER + 
VARTABLE a 

ARRAY WITH SUBSCRIPTS) * 
FUNCTION WITH PARAMETER(S) / 
STRING tok 

_. STRING VARIABLE ae = 


STRING ARRAY WITH SUBSCRIPT 
EXPRESSION IN. BRACKETS 


EXPRESSION HAS TYPE REAL UNLESS STRING PRIMARY 
QCCURS: IF SM TT HAS TYPE STRING. A VARIABLE PRIMARY I8 
me PRIMARY OTHER THAN NUMBER*s FUNCTION» OR STRING. 
IN OBY AN EXPRESSION HAS FORM 
A OPS a OPS .,, A OPS. 0 
WHERE A Is A CHARACTER BETWEEN 1 AND 16 GIVING THE PRIMARY 


00034100 
00034200 
00034300 
00034400 
00034500 
00034600 
00034700 
00034800 
90034900 
00035000 
00035100 
00035200 
00035300 
00035400 
00035500 
00035600 
00035700 
00035800 
00035900 
00036000 
00036100 


~ 00036200 


00036300 
00036400 
00036500 
00036600 
00036700 
00036800 
00036900 
00037000 
00037100 


MR OPERATOR TYPE, OPS IS O™2 CHARACTERS GIVING MORE INFORMATIONO0037200 


DEPENDING ON A, 3 


 STRINTEFALSESNDEPL=ENNEPHISIF NDEPS10 THEN SYNTCO"SIMPLFY")3 


STCKt=O0P $203 INMOK S=VOK:=TRUES STROKSSTT=03 


COMMENT 2000 | | PRIMARIES 5 


e SSi Pe ee be 
COMMENT BRACKETED EXPRESSION} 
: St ONC29) BEGIN ARITHCL)3 IF CHA NEQ 45 THEN SYNTC™NO > »A")3 


oS REORGO TOCFORMY END3 8 
COMMENT 1 NUMBER ; 


IF CHA LSS 10 OR CHA = 26 THEN BEGIN RiSI? 
RPT: ON€26) REGIN ITta1sCHAt=enwe Bea 


IF CHA GEQ 10 THEN GO 10 EXPONSIF I>0 THEN BEGIN RtsR+CHAxtO*C#] 33 
ltet+4 END. ELSE Rt=Rx{O+CHASCHASSNWwC3 GO TO RPT3 


EXPON:. IF CHA NEQ@ 21 THEN GON TO DONESTP=tsCHASSNwC3 U3e03 


ONTEAT BEGIN: Lt=={3CHAT=NWC END ELSE ONC16) CHAt=NWC3JS=CHAS 


IF CHA GEQ@ 10 THEN SYNTC'NO EXPN" )3CHAL=NWCS 


JTF CHA LSS 10 THEN BEGIN Jt=Jx10+CHAZCHALSNWC ENDSRESRxLO#CIXJ)3 


MONE? 9 - PUTCLYSNCONT=NCON+13CONSTENCONITERS 


- PUTENCON. Cit: 6104 PUT CNCONs [5961)7GO FORM2. ENDS 
“COMMENT. es 8 INITIAL @ 3 


ONC 44) BEGIN ‘TF ‘Nat INMOK “THEN. SYNT “CU MISPL =M)5 PUTCB)3 
GO TO FORMe ENN 


00037300 
00037400 
00037500 
00037600 
00037700 
00037800 
00037900 
00038000 
00038100 
00038200 
00038300 
00038400 
00038500 
90038600 
00038700 
00038800 
00038900 
00039000 
00039100 
00039200 
00039300 
00039400 
00039500 
00039600 
00039700 
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COMMENT. 16° STRING ; 
ONC43) BEGIN IF NOT STROK THEN SYNTC"ILL STRYISPUTC16)3 
SCAN CPREAPR!=POINTERCPROG(CSs21)+CP WHILE NEG 633 A2SDELTACAPRsCPR)3 
STRINSHTRUES TF A>La THEN SYNTC™LONGSTR™)3PUTCAIFPUTCCP)S 
CPsaCP+AtLSCHATENWCSVARSSFALSE3GO TO FORM3 END; 
IF CHCONVOCHA) sO THEN SYNTC"™TLL NUM™)3 
BieCHASAT=LOOK(2) MOD 643 TF CHCONVCA) NEQ O THEN BEGIN 

=LOOKC3) MON 40963CHAt=R3 
IF a NEQ "ST™ AND A NFEQ "THY AND A NEQ"TO™ AND A NEQ "GO" THEN 


BEGIN LABEL EOL sFNQsRDUMS 


COMMENT ) STANDARD FNS} 
INTEGER BrAS+AP3 


BIEL ONOKC3FCPrSbPs 


FOR At#s21 STEP 1 UNTIL 32 00 IF BSKEYLA] THEN GO TO EaL3 
GO TO FNQ; 

FQLs IF NwC NEG 29 THEN SYNTC™NG PARMMJSARITHCI)FREDS 
PUT(S)SPUTCA™ 2)3 


TF CHA NEQ 45° THEN SYNTCTNG > AN)F2G0 TO FORMA 
_ COMMENT ag 4 USER FNS 


ee 


FNQ? Ki=B pV 643 IF K NEQ ® FN" THEN SYNTCTUNRG FN')3 
BiscHCONVCR MOD 64)3I1F SURI 81=0 THEN SYNTC"UNDC FN")5 


IF NwWc NEO 29 THEN SYNTCYP ND PARMT) FAS 203 


RNUM? APSAFTFARITHCLISREDZONCSB) GOO TO RDUM; 
IF CHA NEQ-45.0R A NEQ SUBLRY THEN SYNTCWYPARAMTR)3 


 CHALSNNCFPUTCAIFPUTCRIGGO TO FORM2 END END; 


Bt=CHCONVCB)S TF B=O THEN SYNTC"TNV VAR™)3CHALSNNC3 
COMMENT 3 ARRAY 
ONC29) BEGIN TF ARRERy 11s © THEN SYNTC"UNDC AR")3 


‘ee 


- ARITHOCLIJREDJONC58) BEGIN IF ARR(Be2}=0 THEN SYNTC™SUBSCPT")3 


ARITHC1) FRED ENDS IF CHA NEQ 45 THEN SYNTC™SUBSCPT™)3STROKSSFALSE3 


—PUTC3)3PUTCBYSCHALENWC END 
ELSE ONC"™S") REGIN IF NOT STROK THEN SYNTCPILL STR™)5 


COMMENT 15 STRING ARRAY; 


(CHATENNCSONC 29)BEGIN TF STRARIB,1]=0 THEN SYNTC"UNDSTAR™)3ARITHCL)3 


REDS 
IF CHA NEQ 45 THEN SYNTCTNG ) 2S™24PUTCI5)3CHAS=NWC END ELSE 


— PUTEL4I3PUTCB)3STRINE=ETRUEIVARS=VOKIGO TO FORM3 END 


ELSE BEGIN PUTC2)3PUTCRIZ IF CHA LSS 10 THEN BEGIN PUTCCESCHA+T1)S 
COMMENT 14 STRING VBLE 
2 VARIABLE 3 


CHA: =NCH END ELSE PUTCCESODSIF STCKEO THEN ADDRiS11x(Bal)+C3 


STROK#=SFALSE ENDS VARt=vOK3G0 TO FORM33 


FORME? - CHATENWCOR at sh oa 
FORM2: STROK?=SVAR?SFALSESIF STRIN TREN SYNTC®ILL STR")3 
COMMENT i 713 OPERATORS: 
DANGER! REVERSE POLISH SECTION ; 
~FORM32. » BEGIN LABEL RPT» TESTsBO0P+XOP3 


STCK1SSTCK+LFINMOK: SFALSES 


oO RPTES oo PPeOSONC16) PH23 ELSE ONC44) Tas ELSE 
ONC43) BEGIN IF NWC=43 THEN It=7 ELSE BEGIN CPt3CP=131:=5 END} 
END ELSE ONC49) T3246 ELSE TF CHA=64 AND EQOK THEN BEGIN INMOK?=TRUE3 


IF NOT VAR THEN SYNTC™ILL ASN™)3 7321 ENDs VOKeeI LEQ 13 
“TF NOT OVOK- THEN BEGIN STROKISFALSESIF STRIN THEN SYNTC"ILL STR") ENDs 


TEST: IF nP=9 THEN GO TO BOPs TF OP LSS 0 
THEN SYNTC™ ARITH")5 
JisOPKCOPISIF TXJ NEQ@ 1 ANDO Cre1) DIV 2 LEQ Cutt) DIV 2 THEN BEGIN 
OPr=sNP-13G0 TO XOP END3 


00039800 
900039900 
00040000 
00040100 
00040200 
90040300 
90040400 
00040500 
00040600 
00040700 
00040800 
00040900 
00041000 
00041100 
00041200 
00041300 
00041400 
00041500 
00041600 
00041700 
00041800 
00041900 
00042000 
00042100 
00042200 
00042300 
00042400 
00082500 
00042600 
00042700 
00042800 
00042900 
00043000 
00043100 


00043200 


00043300 
00043400 
00043500 
00043600 
00043700 
00043800 
00043900 
00044000 
00044100 
00044200 
00044300 
00044400 
00044500 
00044600 
00044700 
00044800 
00044900 
00045000 
00045100 
00045200 
00045300 
00045400 
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BOP: TF TsO THEN GO TO FINJOPL=O0P+13OPKCOP] 2217360 TO SS3 
XOP: VARS=FALSESSTCKI=5TCK"43 
PUTCU+6)5TF STCK LEQ O THEN SYNTC™ ARITH')} 

G0 TO TEST END; © a 
COMMENT 6 ENT EXPN 3 
BENS NDEPS=eNDFPeLs IF STCK NEG 1 TREN SYNTC’ ARITH')3 

PUTCO). ENDF soe oe 
COMMENT 
om oe SKIP SKIPS GIVEN STRING IF FOUND 3 


PROCEDURE SKIPCAsB)J VALUE AsBZ INTEGER ArB3 


BEGIN INTEGER CoDsFsEtsCP3CHENWCS 
FOR Dtet STEP 1 UNTIL ami DM TF CHA NEG "3" THEN Ct=Cx64+NwCc3 
TF ¢ NEQ & THEN REGIN CPisksCHat=0 END END; 
COMMENT 
aide CHMAT CHECK USED IN MAT STATEMENT 


wa 


INTEGER PROCEDURE CHMATCADSVALUE ASINTEGER AS 
BEGIN At=CHCONVCADSIF AZO THEN SYNTCTILL ARR )3 


IF ARRLAst)]=0 THEN SYNTOMUNDC AR" )31F ARRDAr2]7=0 THEN 
SYNTC"™ TYPE" YI CHMAT#=sA ENDS 


COMMENT. st" CEFN. FOR FILE INPUT AND OUTPUTS 


PROCEDURE CFN3 


BEGIN LABEL Lets 
CHAt=NwC3 TF LOQKC4)="FILE™ THEN BEGIN CPs=_LP3D2=IF As15 THEN 5 ELSE A3 


FOR Ctel STEP 4 UNTIL NF DO BEGIN CHAt=NWC3Rt=LOOKCFNM(2sC))3 


IF B=FNME1+C] THEN BEGIN IF FNMC3sC1=0 THEN FNME3sC]#=0 ELSE IF D NEO 
CFNME3,C] THEN SYNTC"INSOUTO" SCP ESLPSPUTCAIZIF D=5 THEN. 
INFILTOG?isTRUESIF A=? THEN AUTFILTOG!=TRUE} 

IF NWCs"3" THEN REGIN At=NUMBSFOR Bt=ACS STEP 1 UNTIL MS DD 

IF asSSEOLE] THEN BEGIN PUT (Be [1136])3PUTCBef5261)3G0 ONC58) L ELSE M 


— ENDS SYNTC"UNDF GO) ENDS PUTCO)FPUTCOIFONC58) GO L3 


GO TO M ENO ELSE BEGIN CPtsCP=13CHAt=0 END ENDJSYNTCYUNDC FL®) ENDS 
-PUTCOD3 ONCE) GO TO M$3CPtsCP#13CHA+=S903G0 TO LS 

Ms IF A=5 THEN SYNTC™NQINPUT")3PUTCO)3G0 TO INCST3 

Ls ENN 


COMMENT mene mem mm a mn oe a on a ee Oa a 


ad ee ap ai ee Fee en Pe Oe sey et oy, PF Oe 


XBASTIC STARTS HERE 


A Se a Ne eo ow sm eo a 


FIRSTOFFSsIU NEQ Q31F pUR2 THEN TTY«TYPES=43 
PIBES=POINTERCTOREL1])473 PINB®sPOINTERCIOBL1322 
DELIM2=7235TIM$ s108003LLisets 
OBJECTISHNDRi=FALSES NUSso3 


FILL KEYC#] WITH "LET™,"GOT"s "GOS" MRETIZ MIND, 


MREAM,UPRIN, FOR, PNEX™S MAT! ST NEF MSI DAT, 


RAN", "PAG", »"RES", REM, STON, VEND"SUIF ,°0N Me "SINT HCOSM, 


OW TANS, RATAN) NEYPY, HL OG", KABS, HINT 24 SQR", ME TYME TSGNY, wRND"» 
ME Qt, ETM, "LE" » "GT, WEE, IORI S 


RGWaEN aoeceeseece fees ede eo ee ee 


wet ew mmm mn SOURCEIN! FOR INPUT OF SOURCE PROGRAM = «=«a00- 


00045500 
00045600 


00045700 


00045800 


00045900 
00046000 
00046100 
00046200 
00046300 
00046400 
00046500 
00046600 
00046700 
OCOA6B00 
00046900 
00047000 
00047100 
00047200 
00047300 
00047400 
00047500 
00047600 
00047700 
00047800 
00047900 
00048000 
00048100 
00048200 
00048300 
00048400 
00048500 
00048600 
00048700 
00048800 
00048900 
00049000 
n0049400 
00049200 
00049300 
Q0049400 
00049500 
00049600 
00049700 
00049800 
00049900 
00050000 
90050400 
00050200 
00050300 
00050400 
00050500 
00050600 
90080700 
00050800 
00050900 
00051000 
00051100 
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AND. EXECUTION OF COMMANDS A om am Ho wn we 


Vennca gees coshaseaavadernnaue cones eeereencoreredeeehaanecerawe) 
COMMENTS COMMANDS ALLOWED IN XBASIC 
HELLO SAME AS BYE 
RYE TERMINATES XBASIC. PRINTER OUTPUT IS SCHEDULED 
RUN EXECUTES PROGRAM IF FREE OF SYNTAX ERRORS 
SER DELETES WORKFILE 
DELETE SAME AS SER 
LIST LISTS ENTIRE 4ORKFILE 
LIST WHERE £ 1S A NUMBER OF ELEMENTS OF FORM 
ete e es Nea AR MN (MeN STATEMENT NUMBERS) 


SEPARATED BY COMMAS, LISTS PART OF PROGRAM 
MAKE NNNNNN TNITTALISES AND NAMES WORKFILE 
SAVE SAVES WORKFILE IF NAMED 
SAVE NNNNNN° SAVES WORKFILE IN NNNNNN, NAMES WORKFILE 
Eg es ak TP ONOT ALREADY NAMED | 
JLOGAD NNNNNN LOAOS WORKFILE AND NAMES IT 
LOAD NNNNNN/UUUUUUU COPLES WORKFILE FROM NNNNNN/UUUUUUU 
WORKFILE BECOMES UNNAMED 
COPY NNNNNN — COPIES NNNNNN INTO WORKFILE 
COPY NNNNNN/UUUUUUU SAME FOR NNNNNN/UUUYUUU 
REMOVE. NNNNNN REMOVES FILE NNNNNN/USER NO, 


RENAME NNNNNN RENAMES WORKFILE 
PLOP RESETS WOKKFILE TO LAST RUN STATUS 
WHATS NBTAINS WORKFILE STATUS 
scepauniel Uese bec. Ts de INPUT UNIT IS TTY 
J EVDUES — INPUT UNIT TS VNU 
: SENE  DEVERTS OUTPUT TO PRINTER 
oo NOSEND TERMINATES DIVERSION OF GUTPUT 
TIME N RESETS MAX EXECUTION TIME TO N MINUTES 


ee el eR te ee ee Re ok Re ok Dek hed dieldrin) 


SQURCEIN? BEGIN LABFL SQURCEINsEF sCOPYsNEWL» SOURCEsRMOBs 


INTAVRISINERS 
IF FIRSTOFF THEN BEGIN FILECONTROLCOs"XBWKFL "»TIMEC@1)2FST)3 


FST! TF [U#0 THEN WRITECTTY*INVITISFIRSTOFFS=FALSE END? 
ake thee? THEN GO To. SOURCES : 
“- SOURCEING 9 TRO TU GTR Oo THEN GO TO SOURCES PINBt=PINB+803 


“ee LSS 24 THEN GO TO NEWL3 


SOURCE: LLisO3F It) GTR O THEN READCFNL LU LICSTOPI, 10sTOBL#1) 
ELSE READCVDULSTOP4.240*T0BL*1)3 
IF yUs2 THEN WRITECTTY +109 10B04*))3 _ 


el PINBESPOINTERCIOBE*1)310BEL11:=03 


NEWS CrSIF MS>9 THEN SSEQCM5S] ELSE OF APR:=PINB; BPRIi=PIBES 


ae ATENMBR(6)3 TF ASO THEN BEGIN TF CHAS"S" THEN GO TO SOURCEIN3 


COMMENT NONVOLID INPUT WITH ZERO STATEMENT NO. MUST BE COMMAND3 
IOBFLLJ2=07REPLACE BPR#=5 BY APRICPRIsAPR=1 FOR 13 


_..REPLACE BeR@4 BY APRIAPR FOR 5S WHILE IN ALPHASCHAtS=IQBEL193 


QNC"RUNOOO") REGIN IF QRJECT THEN BEGIN IF NMBRC72) NEQ O OR 
CHA NEQ "4" THEN GO PERSGO EXECUTE END 
ELSE TF IU=2 TREN GC COMPILE 
ELSE BFGIN WRITECTTY*WT)3 
FILECONTROL C4s"XBWKFL "sTIMEC@1)*COMPILE) END ENDS 


00051200 
00051300 
00051400 
00051500 
00051600 
00051700 
00051800 
00051900 
00052000 
00052100 
00052200 
00052300 
00052400 
90052500 
00052600 
00052700 
00052800 
00052900 
00053000 
00053100 
00053200 
00053300 
00053400 
90053500 
00053600 
00053700 
00053800 
00053900 
00054000 
00054100 
00054200 
00054300 
00054400 
00054500 
00054600 
00054700 
00054800 
00054900 
00055000 
00055100 


00055200 


00055300 
00055400 
00055500 
00055600 
00055700 
00055800 
00055900 
00056000 
00056100 
00056200 
00056300 
00056400 
00056500 
00056600 
00056700 
00056800 
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ONC’DELETE” OR CHA="SCRO00") BEGIN Ci=NMBRC72)3 
IF C NEQ 0 OR CHA NEQ "%" THEN GO PERSWRITECTTYsF7)3 
CSQtSMSteTOLrO t=O; DANGERS FURJECT& =F aALSESGO SOURCEIN END; 
ONC*LISTOO") BEGIN 


COMMENT PROCESS LIST COMMAND; 


LABEL NEXS LEX? 
IF nUsl THEM WRITECTTYsOVO)3 
WRITECFLIQLI,SPC)3 | 

NEX? RBEGt=NMRRC72)3IF CHCONVCCHA) NEQ O THEN GO PER 
ENtSONCI RE AND BEGs0) qOoo0000 ELSE ONC44) NMRRCO72) ELSE BEG) 
LF CHCONVCCHAD NEQ 0 THEN GN PER; 


FOR ate! STEP 1 UNTIL MS DO IF SSEQLAI LE@ EN 


AND SSEQCA] GEG BEG THEN BEGIN 


REPLACE POINTERCIOREC1I}) BY " ™ FOR 1123 


WRITECIOBEL*]+NUMLOxOll]+SSEQPAI)S 


SCAN CPREPOINTERCTOREL11)+20xNU FOR 20 WHILE NEQ 433 


REPLACE CPR RY POITNTERCPROGLAs2)) FOR 723 WRITECFLOOU]*14-TOBEL*1) 


ENDSONC58) GO TO NEXSWRITECTTY*STPo"LIST ")3G0 TO SOURCEIN END; 


ONCYRENAME™) FILECONTROL COs" NAMED"s "sSQOURCEIN)3 
ONCWMAKEOO") FILECONTROLCOs,"CREATE™2 "D's SQURCEIN) 3 


-ONC"SAVEOO") . FILECONTROL CL." SAVED"*" "»SOURCEIN)3 


ONCYLOADOO") FILECONTROLC2-" LOADEs "Ds SOURCEIN)3 | 


ONCWREMOVE') FITLECONTROLC 36 "REMOVES "D's SOURCEIN) 3 


ONCHCOPYOO") FILECONTROALC2,”" COPIE™sOsSOURCEIN)s 


ONC"BYEOOO" OR CHA="HELLOO") BEGIN IF IUs2@ THEN GO FINSH3 


ee FILECONTROLC6s"XBWKFL ",TIMEC TL) 2FINSH) ENDS 
ONC"SENDOO") BEGIN OUtst31F NOT HNOR THEN BEGIN 


WRITECLIN® HOS TIME C639 TIME C9) « L23t1l2ysTIMecS).C35% 12]>sTIMECS) £11212)» 
TIME CHL) C4121 BI sTIMECH1).f23224))3 


HDDRs=TRUE ENDSWRITECTTYsHD1)3G0 SOURCEIN ENDS 
ONCWNOSEND") BEGIN OUfsOFWRITECTTY#STPe"NOSEND™I3GO TO SOURCEIN ENDs 


— ONCTTTYOOO") REGIN IUts13WRITECTTY*STPo"SETTTY"I3G0 TO SOURCE END? 


ONC*VDU000") BEGIN ITUtsOSWRITECTTYsSTPa"SETVDU"ISG0 TO SOURCEIN ENDS 


ONCWTIMEOO") BEGIN TIM2=3600xXNMBRCLOIFIWRITECTTY*STPo "SETTIM" 3 


GO TO SOURCEIN ENN3 
ONC*PLOPOO") FILECONTROL(52020sSQURCEIN) 3 


_ONC"WHATSO") BEGIN WRITECTTYsF9)3IF TOLOI=O THEN 


WRITECTTY*F10»MSsSSEQEIMS]) ELSE 
OWRITECTTYsFitsTOlo). cays 36]+MS»SSEQIMS1)3 
G0 SOURCEIN. “ENDS | 
% ILLEGAL COMMAND 
WRITE CTT Ys WHT o™ "RCHAL S52 39:2: 6*xDELTACCPReAPR)])3G0 SOQURCEIN ENDS 


COMMENT. PROCESS SOURCE STATEMENTS 
_OBJECTISFALSESOANGERI=TRUES 

‘COMMENT DELETE STATEMENT: 
— ONCH&") BEGIN CHAtSA;FOR Areal. STEP 1 WNT IE MS pd 


ON(CSSFQLA]) BEGIN MSt=MS=13FOR Bt=A STEP 1. UNTIL MS DO 


BEGIN SSEQCR1:sSSEQIR+1]SWRITECPROGIBo*], gcpROg EBS tc#4) END ENDS 


GO TO SOURCEIN ENN; 
CHASSASAPRIZAPR™4$ 


00056900 
00057000 
00057100 
00057200 
00057300 
00057400 
00057500 
00057600 
00057700 
00057800 
00057900 
00058000 
00058100 
00058200 
00058300 
00058400 
00058500 
00058600 
00058700 
00058800 
00058900 
00059000 
00059100 
00059200 
00059300 
00059400 
00059500 
00059600 
00059700 
00059800 
00959900 
00060000 
00960100 
00060200 
00060300 
00060400 
00060500 
00060600 
00060700 
00060800 


00060900. 


00061000 
00061100 
00061200 
00061300 
00061400 
00061500 
00061600 
00061700 
00061800 
00061900 
00062000 


00062100 


00062200 


00062300 


00062400 
00062500 


eee ee 


€ 
: € 
pee hae Ree ee ae a eee 00062600 
COMMENT ADD NEW LAST STATEMENTS 00062700 
00062800 €é 
_IF CHA GTR C THEN BEGIN CS!3MS3MSt=At=MS413 00062900 
IF MS GTR 290 THEN GN TOOLONG; 00063000 
GO TO COPY ENDS; 00063100 6 
es : 00063200 
COMMENT REPLACE EAPLIER STATEMENT; 00063300 
FOR Ats1 STEP 1 UNTIL MS 00 ONCSSEWCA]) GO TO COPY 00063400 @ 
ELSE IF CHA LSS SSEQLA] THEN BEGIN MSs=MS+443 00063500 
00063600 
COMMENT INSERT STATEMENTS 00063700 | 
ete ee ee ee ae yo Pee 00063800 
IF MS GTR 200 THEN GO TO TOOLONG: 00063900 
FOR BteMS STEP “4 UNTIL Att DO 00064000 @ 
BEGIN. SSEQ(BIS=SSFQLBA1ISWRITECPROGEIR, *1,10,PROGIB=1-*]) END? 00064100 
GO TO COPY END? 00064200 
copy! PROGLAst1TtsSSEQLAT2SCHA3 00064300 € 
REPLACE BPRICPRISPOQINTERCPROG(A+2]) BY “ * FOR 13 00064400 
BI=DELTACAPR»PINR+80)31F R>71 THEN 322713 00064500 
REPLACE BPRIBPR BY APP FOR B WHILE NEQ "2m3 00064600 € 
REPLACE BPR BY " © FOR 72"NELTACCPR»BPR)3G0 SOURCEIN END SOURCEINS 90064700 
INER? WRITE CTTYs INTRDS GO TO SOURCE TNS 00064800 
TOOLONG? WRITECTTY*LNGPRGsSSEQLCSIISGO TO SOURCEINS 00064900 @ 
— PER? —— WRITECTTY*F12)3G0. SOURCEINS 00065000 
COM MEN T mem om me mo 8 to ae eS 00065100 
TOM emma ma mm mee mem ENT SOURCEIN a I Fa a Fy 00065200 @ 
liedelsledadslpkodekelshebelakelelakskeledudaleeteddddcbaleiedakahelaialakehabeetatehatetekebekaledalaketel kakelakeketeketeheted 00065300 
ON em me _ COMPILE? SEARCH FOR SYNTAX ERRORS a on oe me me mm 00065400 
7mm AND MAKE PSEUDO=OBJECT CODE vam meman 00065500 @ 
BC OE OS 00065600 
COMMENT 00065700 
SYNTAX ERROR MESSAGES: OUTPUT AFTER “RUN 00065800 € 
WITH NEW FAULTY PROGRAM 00065900 
00066000 
APITH MISSING OPERATOR OR MPERAND IN ARITHMETIC 90966100 e 
Boe ee ee” EXPRESS TON (SHOULD NOT OCCUR) 90066200 
FILES PROGRAM CAN HAVE ONLY ONE INPUT AND ONE OUTPUT 00066300 
FILE 00066400 r 
IL. Gase.. . THIS STATEMENT HAS BEEN ILLEGALLY REFERENCED 00066500 - 
oie BY A GOSUB STATEMENT CIT IS IN aA FOR LOOP) 00066600 
coe ; IL RELN AN TLLEGAL RELATION OF FORM x?? HAS BEEN 00066700 é 
co UNION ND PR STATEMENT ~ 00066800 
ILL ARR ARRAY NAME EXPECTED RUT CHARACTER IS NOT 00066900 
A LETTER 00067000 6 
- ILL ASN ss AN ASSIGNMENT IS ATTEMPTED BUT LEFT HAND SIDE 00067100 
og eee IS NOT A VARIABLE 00067200 
SOLER OR Ne oe THE NAME OF A DEFINED FUNCTION MUST BE OF FORM 00067300 g 
Bes ee PNOCLETTER® o PARAMETERCS) MUST BE SUPPLIED, 00067400 
ILL FOR A FOR STATEMENT IS ALREADY IN OPERATION 00067500 
FOR THIS VARIABLE 00067600 & 
ILL NEX a NEXT MUST REFER TO AN UNSUBSCRIPTER REAL VBLE 00067700 
TLL NUM A PRIMARY IS MISSING OR ILLEGAL 00067800 
TLL STR A STRING PRIMARY HAS BEEN ENCOUNTERED IN 00067900 @ 
_ A REAL EXPRESSION 00068000 
IL STMT ILLEGAL STATEMENT 00068100 
INV IF STRINGS CAN ONLY BE COMPARED FOR EQUALITY 00068200 r 
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INV PAR 


INV VAR 


IN+0UT? 


~ LONGSTR- 


MISG_OP 


MISP os 


 MTSPL = 


NAMF 
NESTING 
NO) X 


NO ¢ xX 


NO EXPN 


NO FOR 


NOUNPUT 


NO NEXT 


NO PARM 


NG PROG 
NO. REIN 
NO SEPR 


ae sata ee 


NOT END 


-NOTLAST 


OVERFE EW 
QUOTES 


RENC AR 


REOC FN 
SAMEF TEL 


— PARAMTR 
~ SIMPLFY 


acts 


etaRAGe 


STR Ben OO] 


STRSTR 


a ace: 


“Too MoH 


OR INEQUALITY 

A FORMAL PARAMETER IN A DEF STATEMENT 

MUST BE A VARIABLE 

A PRIMARY IS MISSING OR ILLEGAL. IN A READ 
STATEMENT EVERY EXPRESSION MUST CONSIST OF 
A SINGLE VARIARLE PRIMARY. 

A FILE 1S BEING USED FOR INPUT AND OUTPUT 

A STRING CONTAINS MORE THAN 14 CHARACTERS 
IN A STATEMENT OTHER THAN PRINT, 


AN GPERAND ESSENTIAL TO THIS STATEMENT HAS 
BEEN OMITTED CEND OF. STATEMENT ERROR). 


MISPLACED OR MISSING = IN DEF STATEMENT 


Aum SIGN HAS BEEN PLACED ILLEGALLY IN AN 


EXPRESSION (E.G. Ae"B). 
PROBARLY CAUSED BY ILLEGAL FILENAME 
INCORRECTLY NESTED FOR AND NEXT STATEMENTS 
MISSING PARENTHESES: X=#A IN ARITH EXPRESSION 
Os. | P IN FUNCTION PARAMETER 
S IN SUBSCRIPT 
F IN FILE DECLARATION 
F HAS BEEN FOUND IN A NUMBER BUT NO EXPONENT 


FOLLOWS 


A NEXT STATEMENT HAS NO CORRESPONDING FOR 
INPUT STATEMENT MUST HAVE LIST OF VARAIBLES 

A FOR STATEMENT EARLIER IN PROGRAM HAS NO NEXT 
EVERY FUNCTION MUST HAVE PARAMETERCS) IN 
BRACKETS 

THERE IS NO PROGRAM TO RUN 

NO RELATION HAS BEEN FCUND IN AN IF STATEMENT 
CONSECUTIVE ARITH EXPRESSIONS IN PRINT 


STATEMENT MUST BE SEPARATED BY » OR SEMICOLON 
A FOR STATEMENT MUST HAVE A FINAL VALUE 


CFOR X=1 TO 10 ETC.) 
THE LAST STATEMENT MUST BE AN END STATEMENT 


THE END STATEMENT MUST BE. THE LAST STATEMENT 


A NUMBER IS. TOO: LARGE 

MISMATCHED STRING QUOTES 

ARRAY TWICE DIMENSIONED 

A FUNCTION HAS BEEN DEFINED MORE THAN ONCE 
A FILE HAS BEEN DECLARED MORE THAN ONCE 


WRONG NUMRER OF PARAMETERS IN A FUNCTION CALL 


AN EXPRESSION 15 NESTED TO A DEPTH OF 10 OR 
MORE AND SHOULD BE BROKEN UP 
AN ARRAY DIMENSION IS GREATER THAN 64 OR 


CIN MAT STATEMENT) IS GREATER THAN THE DECLARED 
_DIMENSTON OF THE ARRAY. 


ARRAY STORAGE HAS BEEN EXCEEDED (700 WORDS OF 
TYPE REAL» 70 OF TYPE ALPHA) 

ILLEGAL OBJECT CHARACTER (E.G. PRINT STRING 
HAS 263 CHARS OR STARTS LATER THAN COL 63) 

A STRING CAN ONLY BE COMPARED WITH ANOTHER 

AN ARRAY REFERENCE HAS THE WRONG NUMBER OF 
SUBSCRIPTS | 

PROCESSING. OF. THE SOURCE STATEMENT HAS NOT. 


os USED: UPROALL. THE INFORMATION IN 1Te CCAN BE 


CAUSED BY OMISSION OF AN QGPERATOR IN AN 
EXPRESSION) 


00068300 
00068400 
00068500 
00068600 
00068700 
00068800 
00068900 
00069000 
00069100 
00069200 
00069300 
00069400 
00069500 
00069600 
00069700 
00069800 
00069900 
00070000 
00070100 
00070200 
00070300 
00070400 
00070500 
00070600 
00070700 
00070800 
00070900 
00071000 
00071100 
00071200 
00071300 
00071400 
00071500 
00071600 
00071700 
00071800 
00071900 
00072000 
00072100 
00072200 
00072300 
00072400 
00072500 
00072600 
00072700 
00072800 
00072900 
00073000 
00073100 
00073200 
00073300 
00073400 


00073500 


00073600 
00073700 
00073800 
00073900 


: : j 


@ 


: j ; 


peeeveeeeewveewneeee 


TYPE ee AN ATTEMPT HAS BEEN MADE TO USE A MAT STATEMENT 


FOR A 1*=DIMENSTONAL ARRAY 
UNC AR AN ARRAY HAS BEEN REFERENCED BUT NOT DECLARED 
UNDG FL A FTIE HAS BEEN REFERENCED BUT NOT DECLARED 
UNDC. FN A FUNCTION OF TYPE FN* HAS BEEN REFERENCED BUT 
NOT DECLARED 
—UNDF GO- THERE TS NO STATEMENT IN THE PROGRAM WITH THE 
SEQUENCE NUMBER REFERENCED BY THIS STATEMENT 
UNNSTAR A STRING ARRAY HAS BEEN REFERENCED BUT NOT 
tat ecco tic oats of DECLARED 
UNRO FN A FUNCTION NAME OR KEYWORD HAS BEEN MISSPELLED 
fe OR MISPLACED 
OS PELE S 0 Se NOT MORE: THAN TWO FILES MAY BE pECLARED 
14 FORS FOR STATEMENTS NESTED TOO DEEP 
PEEP HLTL ELT LL SPELLS eee Eee Stas eset eee geese pes a tess e rss set sr sss 
: COMPILE: 
= COMMENT! foc IN TRE POLE OWENG COMMENTS» 


<E> TS ANY FXPRESSTON CPOSSTIBLY WITH =) 
<L> TS ANY LETTER 

<v> TS ANY VARIABLE PRIMARY 

<N> 1S. ANY UNSIGNED INTEGER 

<S> TSA STATEMENT NUMBER 

<F> [8S A FILENAME 


ALLOWED VARTANTS ARE LISTED BELOW. THREF LETTER 
ABBREVIATIONS OF INITIAL KEYWORDS ARE ALLOWED WHERE UNAMBIGUOUS. 
SPACES ARE IGNORED EXCEPT INSTDE STRING QUOTES3 


_INTOVRESINTVR$ INDEX t=OUOTESFLAG?=FLAGR3 


MSTNt=22B75MSTRES273 INFILTOG?SOUTFILTOG?=FALSES 
FOR At=1 STEP 1 UNTIL 26 AO STRARCAP1TESARRCAsLIS=ARRC A272 =SUBCAI2=03 
TOCA s=ITOL2t=P NMC 2o1 TV tSPNM[2s212=F NMC Be. ] 2s PE NMC 3s2) 3=AREASIZEtS= 


NDEPt=COMS1FPOBE=POINTERCDBUC HIF 
CStsOsSV isl Gk: STRUES 
OIF MS. 20 THEN SYNTONNG. PROG"I3. - 


FORFS=FORCS=NCONIZS05FOR Ats=l STEP 1 UNTIL 200 DO STYPLA]t=03 


ed OMEN Viueh Sct toes ccat sere mexarii Bae: ” FILES 


<N> FILES <D> rae 
WHERE. KD? 18. <fe CEXISTING FILED 
OR <p>c<n>) CFILE TO BE CREATED: NeMAX NO OF RECS) 
“WHERE. “<F> TS A CANDE FILENAME 
THERE CAN ONLY BE ONE FILES STATEMENT. IT MUST BE THE FIRST STATEMENT. 


_ THERE, CAN BE AT MOST SNE INPUT FILE AND ONE OUTPUT FILES 


FILE ACSH=CS1SCS+13CPPSCHAT=0O5 CHATSNWCZBSSLOQKC3)3 


IF ps “REMT THEN GO FILZIF BS"FIL™ THEN BEGIN CPEELPSSKIPC2s"ES") SAR 803 


RFIL? AL=A+131F A>3 THEN SYNTC"3 FILES" )3 
CHAteNWCAJTOLCAI:=S" "ZSBPRssPOINTERCPROG(CSs2])+CP13 


SCAN APRIBPR FOR 6 WHILE IN ALPHASFNMC2sA]8=BI=DELTACBPRsAPR)3 ~ 
REPLACE POINTERCIOCA])+1 BY BPR FOR B3FNME1sA]3=LONK(B)SCPIELPS 


NF tzA3CHALSSNWCZONC"C(') BEGIN AREASIZEtSNUMB/20+15FNM[3,A] 8 S75 

IF CHA NEQ "0" THEN SYNTC"NO ) sF™ISCHASENWC ENDZONC"S") GO TO RFILS 
IF az2 AND TOl1)=10£2) THEN SYNTC™SAMEFIL™)3IF CHA NEQ "%" THEN 
SYNTC"TOO MCH™) END ELSE CS?##03 


00074000 


00074100 
00074200 
00074300 
00074400 
00074500 
00074600 
00074700 
00074800 
00074900 
00075000 
00075100 
09075200 


000753006 © 


00075460 
00075500 
00975600 


00075700 
00075800 


00075900 
06076000 
00076100 
00076200 
00076300 
00076350 
00076400 
00076500 
00076600 
00076700 


00076800 


00076900 
00077000 
00077100 
00077200 
00077300 
00077400 
00077500 
00077600 
00077700 
00077800 
00077900 
00078000 
00078100 
00078200 
00078300 
00078400 
00078500 
00078600 
00078700 
00078800 
00078900 
00079000 
000794100 
00079200 
00079300 
00079400 
00079500 


® @® @ @ @ 6 


@eeeeee#s#eeees# # @ 


: Moore dusiss.s Dorms, dec, ay Poteet 


eo 


| 


{ 


IF cue THEN SYNTE"™NG PROG"); 
COMMENT OM 
<N> IM KM>COSS>) vena 
<N> NIMENSTON <M>C <TD>) 5 any 
WHERE <M? IS <L> OR <L>$ 
— €7T> TS <N> OR <N>s<N> 
NIM STATEMENTS MUST PRECEDE ALL EXECUTABLE STATEMENTS 
STRING ARRAY NUST BE ONE*DIMENSIONAL. 
ALL DIMENSIONS MUST BE <64, 
7413 WORDS REAL AND 73 STRINGS ARE AVAILABLE FOR ARRAYS 


we 


ptm: ACS teCStsCS418CPi=CHAtsO3CHASENWC 


RPSL OOKC3231F. BE"REM™ THEN GO DIMS 


IF Be"DIM" THEN BEGIN CPEsLP3 SKIP CGs"ENSTON)3 
RNIM: Kt=CHCONVCNWCOSIF K=O THEN SYNTC’ILL ARR)3 
IF nwes™$* THEN REGIN STRAR[KsO}:=MSTR3IF NWO NEQ "C" THEN 


— SYNTCTNG ¢ PS" )FALSSTRARTKs 1] f2NUMBSMSTR=MSTREAS 


IF CHA NEQ ")" THEN SYNTCUNG 9 9 S)SIF NwCs"5" THEN GO TO RDIM$ 


IF aARREKsi] NEQ O THEN SYNTC"RENC AR"); 

BIsARR( Ket 1¢SNUMRSIF B>64 THEN SYNTC™ STZE "93 

ONC%s") BEGIN AtSARRCK»2]2=NUMBdIBE=BxA ENDS 

MSTOS=MSTO+BSIF MSTO GTR 1000 THEN SYNTC'STORAGE")3 

IF CHA NEO ")" THEN SYNTCYNG ) 2 S")D9TF NwOats"- THEN GO TO RDIM3 
‘GO TO DIM ENDS IF ACS>MS THEN. SYNTC'NO PROG") 


COMMENT PROGRAM COMPILATION BEGINS HERE ; 
FOR CStACS STEP 1 UNTIL MS DO BEGIN: 
COMMENT IF GOSUB ENTRY THEN FIX FOR LEVEL i 
"eXS! IF STYPECS] NEQ 0 THEN BEGIN IF FGRC NEQ FORE THEN 


SYNTC"IL GOSR")3FOREI=FORCIS5TYPLCS] ENDS 


COMMENT IDENTIFY STATEMENT TYPE : 


NDEPSSCPSsCHAtsO3CHAL=NWC3B35L00K(3)3EQUK tS TRUE 


FOR Atel STFP 1 UNTIL 18 DO IF BaKEYCA] THEN GO TO EQL3 
IF Ren pIM" OR RE"FIL™ THEN BEGIN WRITE CTTYsF6sSSEQCCSI)3 
. GO SOQURCEIN ENDS 


O$%TF Re TRA" THEN BEGIN STYP£CS1:=203G0 REM END? 


a ReYUNT' THEN REGIN STYPICS1!#21360 KEM ENDS 
SBR OLV 643 


on Be"IF™ THEN BEGIN LPt=LPw1sAs=193G0. 70 EQL END 


TF g="ON" THEN. BEGIN. LP eLPoisAt=20760 TO EQL ENDS 


 LPrsosateqs. 


FQLt CPSeLP3STYPECSI#=AsSPORICSI]t=c03 
IF ¢SsMS AND A NEQ 1a THEN SYNTC"NOT END™)3G0 TO OPNEA3 


COMMENT 1 LET 


ee ce 
, OCND> <B> 
OWHERE E. MAY. BE oA. STRING ASSIGNMENT 


‘2 


LET? ARITHCO)3G0 TO INCST? 


miele —_ARITHCH)3 GO TO INCSTS | 
COMMENT, fog es 20 ON 
So END OOON E> GOTO Stee en 
GNP ARTTHCLDFSKIPC3,"0TO")5 
RON $ ATSNUMBSFOR BtSACS STEP 1 UNTIL MS DO IF A®SSEOCB] 


GO TO DIM ENDS ARRLK 0] SMSTOF IF CHA NEQ "C% THEN SYNTC"NO € 9 S™75 


ee 


00079600 
00079700 
00079800 
00079900 
00080000 
00080100 
00080200 
00080300 
00080400 
00080500 
00080600 
00080700 
00080800 
00080900 
00081000 
00081100 
00081200 
00081300 
00081400 
00081500 
00081600 
00081700 
00081800 
00081900 
00082000 
00082100 
00082200 
00082300 
00062400 
00082500 
00082600 
00082700 
00082800 


00082900 


00083000 
00083100 
00083200 
00083300 
00083400 
00083500 
00083600 
00083700 
90083800 
00083900 
00084000 
00084100 


00084200 


00084300 
00084400 
00084500 
00084600 
00084700 


00084800 


00084900 
00085000 
00085100 
00085200 
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sypcs: boavas 


Mowers nite tee “ 
i a pee! Be | a 


6 


i 


Fo 


THEN. BEGIN 6} SPUTCB.£526))3 
IF STYPCCS] PERI<FORC THEN STYPEBI]S=FORC ELSE 


COMMENT SEE FOR STATEMENT FOR THIS TRICKS 
IF STYPLCS]=20 THEN BEGIN ONC58) GO RON ELSE BEGIN PUT(O)3PUTCO) 


END END3GO INC ST ENDSSYNTCTUNDF GO")3 


COMMENT 19 IF 

<N>. JF <X><R><f> THEN <S> 

<N> TF <X><eR>ek> GO TO <S> 

<X> ITS AN EXPRESSION WITHOUT = 
—€R> TS ONE OF THE FOLLOWING 

XE Q xGT XLT xGE KLE ~ 
> rd > <3 
STRINGS. CAN BE COMPARED ONLY FOR EQUALITY OR Inequaurty3 


IFF: EQOK2=FALSES ARITHCO) SE QQKS=TRUEF 


~OtstP STRIN THEN O ELSE 13 
BieosIF CHA=30 THEN BEGIN BtsB+2;CHAt=Nwe ENDS 


IF CHAS1A4 THEN BEGIN BisBt4;CHAt=NWC ENDSTF CHA=61 THEN BI=RB+4 


ELSE CPiscPm131F B=O THEN CHAraNWwC ELSE GO TO FEQ3 


IF CHA NEQ "x" THEN SYNTCYMND RELNT DI CHATSNWCH 
AT=CHAXG4+NNCZFOR Ried STEP 1 UNTIL 6 DO IF ASKEYLB+32]} 


THEN GO. TO FEQSSYNTC"IL RELN)3 


FEQ?. PUTCBISARITHCO)3 IF C=O AND NOT STRIN THEN SYNTC"STRESTR")3 


IF STRIN AND 8 NE@ 1 AND BNEQ 6 THEN SYNTC"INY IF "3 
— SKIP C3."OTOMIFSKIPC3,"HENT)3G0 TO RONG 


COMMENT 2 GO TO 
<N> G60 TQ <S> : 
; GOTH oe SKIPCLs" 0nd 460. TA RON 
COMMENT ae 3 GOSUB 
oe <N> GNSUB <S> 3 
GOS: SKIPC2s"UB™)3G0 TO RONS 
COMMENT a 4 RETURN 
oe , SND RETURN 3 
ee ae “SKIPC32"URN")5 CHAZ=NWC3GO TO INCST3 
COMMENT 8 FOR 
<N> FOR <E> TO <> STEP <E> 
SN> FOR <E> TO <E> 3 
COMMENT DURING COMPILE» FOR INFO 18 STORED IN FORX AS FOLLOWS? 
ee a. SE ee ee ead 4 
‘OBUPOINTER TO STORE NEXTLINE FORLINE ADOR 


EACH FOR IS ASSIGNED A LEVEL CSFARC)» WHICH IS USED TO CHECK 
“NESTING AND DURING EXECUTION. IN SUBROUTINES FORC IS INITIALISED 

TO MAX FORC OF CALLING (GQSUB) STATEMENT! THIS LEVEL IS STORED 
TEMPORARILY IN STYP, OBJECT FORM OF FOR STATEMENT IS AS PE enoH 


LEVEL ASSIGN FINAL INCREMENT NEXTLINE 


ae FOX? FORCI?SFORC+LSPUTCFORCISIF FORCD>10 THEN SYNTC"11 FORS™)3 
ARTTHC1)SFORYIFORC®41:SADDR+13IF CHA NEQ "T™ THEN SYNTC"™ NO TO") 

SKIPC1s"O")3F OR Atel STEP 41 UNTIL FORG*™L DO ITF FORXCAs4]=ADDR THEN 

SYNTCMILL FOR™)ZARITHC1)3IF CHAS"S"” THEN BEGIN SKIPC3s"TEP")SARITHC 1) 


END ELSE PUTCODSFORXCFORCs2188CNsPUTCO)FPUTCOISFORXLCFORC23)2=CS3 
GO INCSTS 


90085300 
00085400 
00085500 
00085600 
00085700 
00085800 
00085900 
00086000 
00086100 
00086200 
00086300 
00086400 
00086500 
00086600 
00086700 
00086800 
00086900 
00087000 
00087100 
00087200 
00087300 
00087400 
00087500 
00087600 
00087700 
00087800 
00087900 
00088000 
00088100 


~~ 00088200 


00088300 
00088400 
00088500 
00088600 
00088700 
00088800 
00088900 
00089000 
00089100 
00089200 
00089300 
06089400 
00089500 
00089600 
00089700 
00089800 
00089900 
00090000 
00090100 
00090200 
00090300 
00090400 
00090500 
00090600 
00090700 
00090800 
00090900 


@® @eeeeeeeeee#ees# # ® @® ® @ ® @® *# @# & 


] 


ao: 


a4 i 
| 
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H 


i 


eeereeeeeceoe ee eneeewneeeene 


is 
i 
i 


3 
i 


~ cOMNENT 


COMMENT 


WHERE <vV> TS A VARIABLE NAME 


ONEX!  SKIPCAs"T")3B3 
IF NwWC LSS 10 THEN BEGIN 8: 
IF FORCSFORE THEN SYNTC"NO FOR "23 | 


<ND 


NEXT <y> 


9 NEXT 


IF B41 NEQ@ FORXCFORCS4)] THEN SYNTC"NESTING")3 
TEPUTCCS.CLLIGI SPUTCCS,£5261)3 


AtecosCOr=FORXLFORCs2 
COs=asSPOR(CSI: 


GO TNCSTE 
COMMENT 


“FORMAI 


DEF: 


IF K=s0 OR NWC NEQ 29 THEN SY¥NTC" 
IF SUBEK] NEQ 0 THEN SYNTC™RENC FN); 

BLIXCHCONVCNWC)@1131F Beeil THEN SYNTC"INY PAR")3 
=BSIF NWC=58 THEN GO RDUMSTIF CHA NEQ 45 THEN SYNT 

zA3FOR Bi=A STEP #1 UNTIL 1 DO BEGIN 


an ROUM? At 
CONSTENCON+A]? 


<N> 


PARAMETERS 


BA+I3B? 


C" NO D P™)¢SUBEKI: 


IF NWO NEQ "=" THEN 


COMMENT 


REAt 
RREA: 


COMMENT 


WHERE <F> ITS THe FILENAMES 
_ SKIP C2s"UTNIECFNSGO TO RREA$ 


Le 


BAN 


COMMENT 


ND 


11 DEF 


“DEF FNL > CSL >see DESED 


_ SKIPC3e"INE™) 5 SKIPCOe"ENM DIKE 
FN')3 AS 


SYNT CMMI SP 


READ KV oe ef 


SKIPCis "OH" )3 


ARITHCO)STF NOT WAR THEN SYNTCMINY 
ON¢$B8) GO To RREAGRUT (O04 GO. TO INCST; 


SND 
<N> 


SN? 
<N> 


INPUT <V>e,0. 


MUST RE SINGLE 


BE TTERS 


PUTCO OSECONSTENCON+B1).01126])3PUTCC, £52617) ENDS 
"JF ARITHCLIZSSUBLKIS2A3GO TO INCST3 


is) READ 
VAR" )3 
5 INPUT 


INPUT FILE <F>*SV>eeee 


RANDOMISE 
RANDOMIZE 


SKIP (6s "DOMISE")3SKIPC6s"DOMIZE") 5 CHAS 
15 RESTORE 


Ne 


- 6ND 


ee RES! 
COMMENT 


WHERE. 


oo WHERE | 


<No> 
_<N> 


<P> 1S 


<P> 18. 


co 1S 


<Q? 1S 


RESTORE. 


RESTORE. FILE. <F> 
WHERE <P> Is THE INPUT FILE 
SKIPCA,"TORE™)ICENS 


PRINT <P> 


GO TO INCST3 
7 PRINT 


PRINT FILE <F>+SQ>e.., 


A FILENAME 


A NUMBER OF ELEMENTS oF Eos 


ez". : 
<B>» 
<E>3 


Bate etre ties 


Pee 


 TABUSED>) 
ANY STRING 


We7>" 


COMMENT 


~ COMMENT 


=FORC+16XFORXEFORC? 313 FORXEFORCs 413203 FORCS 


=CHCONVCNWC )3 
OFPUTCK)3 


leo Ue A a 


coe 


13° RANDOMISE- 


OR 6s 
OR 6 


=CHCONVONWCI@13IF Bezel THEN SYNTC"ILL NEX" D3 


ZLLxKS+CKA+ 1s CHAtSaNWe END ELSE Bi=11«B} 


=FORC@13 


# 
=NWC2GOD TO INCSTS 


i 


‘we 


00091000 
00091100 
00091200 
00091300 
00091400 
00091500 
00091600 
00091700 
00091800 
00091900 
00092000 
00092100 
00092200 
00092300 
90092400 
00092500 


00092600. 


00092700 
00092800 
00092900 
00093000 
00093100 
00093200 
00093300 
00093400 
00093500 
00093600 
00093700 
00093800 
00093900 
00094000 
00094100 
00094200 
00094300 
00094400 
00094500 
00094600 


00094700 


00094800 
00094900 
00094930 
00094960 
00095000 
00095100 
00095200 
00095300 
00095400 
00095500 
00095600 
00095700 
00095800 


(125 IF TRAILS)00095900 


IF TRAILS 


es 


00096000 
00096100 
00096200 
00096300 
00096400 


eoeeveeveveeeeeeeeeweeawees 


i 


PRIt —— SKIPC2e"NT™)SCENSCHATENWCSAATSFALSES 
RPRI? ONC™S") BEGIN PUTCO)3GO TO INCST ENDS 
ONCS&) BEGIN PUTCL)}AAL=FALSES 


TF nweavx" THEN BEGIN PUTC5)3 GO TO INCS1 END 


ELSE GO TO RPRI ENDS | 
ONCT3" OR CHASE") BEGIN AAZSFALSESIF NWC"&" THEN BEGIN PUT(5)3 


GO INCST END?G0 TO RPRY END; 


ON(63) BEGIN AASH=FALSESPUTCHISPUTCCPISCPRS=POINTERCPROGICS22))4+CP3 
SCAN APRICPR UNTIL S633 R2SDELTACCFReAPRISPUTCBD)? 

CP teCP+B+ 13 CHAt=NWC3GO TO RPRI ENDS 

TF LOOKC4)="TARC™ THEN BEGIN AAS =FALSESPUTCR)3CPP=LPSARITHCLS 

OIF CHA NEQ 45 THEN SYNTCTNG ) PYISCHAS=NWC3GO TO RPRI ENDS 


CPReC Pele IF AA THEN SYNTCUNG SEPR')JAASETRUES 


BISCOSPUTCZIZARITHCODSTF STRIN THEN 
REPLACE POB+R BY "6" FOR 1360 TO RPRI3 


COMMENT 14 PAGE 
oe oe <N> PAGE 3 
- PAGS SKIPCLs"EMIZCHALENWCZGO TO INCST$ 
COMMENT oe ee ee : 10. MAT 


<N> MAT READ «| > 
<N> MAT READ <L>(<N>-<N>) 
<N> MAT PRINT <L> 
<N> MAT PRINT <L>(<N>peN>) 
<N> MAT LET <L>=(<E2>)#<L> 
SN> MAT <L>=(<E>)*<L> 
<N> MAT LET <L>e<M> 
<N> MAT <L>=<M> 
WHERE <M> IS AS DESCRIBED IN EXECUTECPROCEDURE MATOP) 3 


Gw Pr Oh 


MAT! CHASENWCRASSLOOKCGISIF A="READ™ THEN BEGIN PUTCLISCPEsLPs 


GO TO IOMT ENOSIF A="PRIN" THEN BEGIN PUTC2)3CPISLPISKIPCLe"T")3 


GO TO ITOMT ENDSCPreCPHqsSKIPC3s"LET" DSA? HCP BLSCHMATCNWC)SCHAS=NWC3 
IF NWC#29 THEN BEGIN PUTC4)3PUTCB)SARITHCL)3CHAS=NWCSPUTCCHMATCNWC) D3 


END ELSE 8EGIN Pace PUTCA) END3GO TO REM3 
JOMT: ZCHMATCNWC)ZPUTCKISIF NWC229 THEN BEGIN 


FOR Bi=i,p2 DO BEGIN At=NUMBSIF A LSS 0 OR A GTR ARRCKsB) THEN 


SYNTC" SIZE")IPUTCA) ENDS CHALSNWCS 


END ELSE BEGIN PUTCARREKs1])#PUTCARR(Ks2]) ENDS 


PUTCONC™S) 1 ELSE C)SONCMS") CHASSNWC3GO TO INCST3 


COMMENT 12 DATA 

ae 2. <N> DATA <b? reese 3 
ae SKIPCL»"A")3 
AT? ARITHCO)3 ONC5E) Go TO RDAT; PUTCO)#GO INCST3 
“conned ee : 2 17 STOP 
<N> STOP 

18 END 

AN END - 


~ENKS. Ee: CS. NEQ: MS. AND As 218 THEN. SYNTCOYNOTLAST")3 CHASENWC3 
AF AZ_7 THEN CHAS SNWC? 
JINCSTi TF CHA NEQ "&" THEN SYNTC"TOO MCH™)3 
COMMENT . 16 REM 
<N> REM <Z> 
_.. WHERE <Z> 18 ANYTHING 
REMSERR? ENDS 


me 


¥ SORT OUT FILES IF 2 TO BE USED 
CSt=MS31F NF=2 AND FAME 3e19=FNME 322] THEN SYNTC™ FILES 93 
IF FNMC3917=7 THEN BEGIN TOC3)S=(OCIISIOCLte10l2)3 


00096500 
00096600 
00096700 
00096800 
00096900 
00097000 
000971400 
00097200 
00097300 
00097400 
00097500 


- 00097600 


00097700 
00097800 
00097900 
00098000 
00098100 
00098200 
00098300 
00098400 
00098500 
00098600 
00098700 
00098800 
00098900 
00099000 
00099100 
00099200 
00099300 
00099400 
00099500 
00099600 
00099700 
00099800 
00099900 
00100000 
00100100 
00100200 
00100300 
00100400 
00100500 
00100600 
00100700 
00100800 
00100900 
00101000 
00101100 
00101200 
00101300 
00101400 
00101500 
00101600 
00101700 
00101800 
00101900 
00102000 
00102100 


~ 


poe : 


@®eeeeeeee?eteeeee¢eeee0e0 @ @ 
| = 


TOCA ttsT0(31] ENDS 00102200 


IF not SY THEN BEGIN iuiereevnetes ee Rade RS")3GO TO SQURCEIN END3 00102300 
OBJECTS=STRUESGN TO EXECUTES 00102400 
serctyn steers nestencten steed 00102500 
INTVR? SYNTC"OVERFLIW")3 © QUOTES SYNTC™ QUOTES"™)3 00102600 

‘i FLAGR? SYNTCOC™NAME "yy . 00102700 
00102800 
00102900 

COMMENT mmm mm mm oe tt eon em ma a OO LO IOO0 
eemecammnwemes END... COMPILE THe ecw en ne meeemmen (0103100 
a me mon a 0m ory mn OO a Ow LOZ DOO 
cla dala! dthetasiatel EXECUTES EXECUTION OF cnet mawamemmanmemmmen (103300 
a ae mm em ee USERS PROGRAM Om OH mem mmm 1 S400 
PE OEM TE OEE EN ONO wommeanmemenwme (103500 
EXECUTE: BEGIN 00103600 

ee eee 00103700 
FItr IN FILS 018K * 1(29102300)3 00103800 
FILE OUT FIL2 . DISKL20fAREASTZE] " "(251023000SAVE 7)3 00193900 
Ge ae ee ee ce 00104000 
INTEGER ARRAY SVECtI10)» % HOLDS GOSUB CALLS 00104100 
FUNCL12261, % DEFINES 00194200 
~STRGSr$12100-0:2)1, % STRINGS 00104300 

IOBLA214]5—.  & 1/0 PSEUDOBLFFER 00104400 

IOF E1102, % " 00104500 

ADREC!?033 % ADDRESS STCK FOR EVAL 00104600 

90104700 

ARRAY STORELO?10001, % HOLDS VARIABLE VALUES ETC 00104800 
eee STKLO?20)3 © VALUE STACK FOR EVAL 00104900 

fo8 00105000 

INTEGER. =. XRND» % PSEUDO™RANDOM NUMBER INDEX 00105100 
St ; COas % CURRENT POSITION IN ORJEe#] 00105200 
RDAT» % DATA STATEMENT 00105300 

NGOT» %* GO COUNTER 00105400 

—SLVES 2 GOSUR COUNTER 00105500 

ROTPs ~~ % POSITION IN DATA STATEMENT 00105600 

MSTO> % TOP OF STORET *) 00105700 

— MSTRs * TOP OF STRGSE*? J 00105800 

IRs % INPUT FILE SEQUENCE NO 00105850 

NR» * QUTPUT FILE COUNTER 00105900 

RTs % RUN TERMINATION TIME 00106000 

MF » % FILE COZRTTY*S OTHERWISE DISK) 00106100 

STCK»s % STACK POINTER FOR EVAL 00106200 

AP Be CoDa Tada KelL a lrVels Xe Vo Zo Ass 00106300 

00106400 

REAL ReSsT3 % HASH 00106500 
Eee ee ea eR Oe ET Se ee ee 00106600 
POINTER PIOBs % CURRENT POSITION IN TOBE*) 00106700 
- POUBs % INITIAL 00106800 

S PBR TER fo ee a 00106900 

00107000 

LABEL INCST; 00107100 
a me a — 00107200 

% TRACE PACKAGE : . 00107300 

“XFORMAT. TUCTAs 2° R3eX%5e "VALUE ASSIGNED= "U)sT2C1OsX22A3sX5e" TO STMT " 00107400 
OR prOye TCO Kee age oe 00197500 
BOOLEAN TRACEOQNsTLINSZPOINTER ITRS 00107600 
PROCEDURE DSTRCAISVALUF AZ INTEGER AS 00107700 


: meg? Genta Farms, iat, dy coeee 
pe 5 an cae i : i t ne A pee : of Seco g 5 : 1 : : i : 
ee oS ea! H iy : 3 . ; t aa : i : : 


—SMBEGIN WRITECIOFC#I,T3eSSEQLCSIe1F TLIN THEN KEYCSTYP{CS]] ELSE " 


ZREPLACE ITR:POINTERCIOFE *#I)+14 BY “STRING ASSTGNEDS"SREPLACE ITR&SITR 
BY "" FOR J3REPLACE ITPEITR BY POINTERCSTRGSCA21)]) FOR STRGSTA0]3 


—SREPLACE ITR BY """ FOR LEWRITECFLCOU] 9s 1OFC#I)STLING 


sFALSE ENDS 


DEFINE TROCTRO>+TROZ)HH#e%IF TROL THEN BEGIN WRITECFLCOUIsTROZsSSEQLCS1s00106200 
— -Y TF TLIN THEN KEYCSTYPECS]] ELSE ey. 

TRACTRILIE#, ZS TROCTRACEONs TI)» TRILIITLINGSFALSE END&> 
TRECTR24)=#—2 LETROCTRACEONe T2)eSSEQLTR21I I TLINGSFALSE END#> 


IF cO,C2:3)=9 THEN COt=CO+1#3 


COMMENT 0 


#TLING=FALSE END es 


TRI. at, tETROCTLINeT3)) 
_TRACTRAL)S#3 XSIF TRACEON THEN DSTRCTR4L) 43 
% PROCEDURES FOR EXECUTES 
COMMENT. 
nee GET GETS NEXT 


CHARACTER FROM OBJ 


DEFINE GET=OROBILCO. 4244) (52479 CO, C223 x6T6TICORRCO4IS 


noe ERROR DEALS WITH EXECUTION TIME ERRORS} 


PROCEDURE ERRORCA)S VALUE ASINTEGER A3 


BEGIN SWITCH FORMAT ERRS=C("ERRO"Z16)» % SHOULD NOT OCCUR,. 


C™SUBSCRIPT OUT OF BOUNDS AT LINE "s16)» 
-C"LOG OF NEGATIVE OR ZERO NUMBER AT LINE "sl6)» 


C"SQ@R OF NEGATIVE NUMBER AT LINE "» 
C"UNDEFINED FUNCTION AT LINE “e#l6)s 


16)» 


CUINPUT STATEMENT ATTEMPTED IN BATCH MODE AT LINE™sI6), 


C"GO TO UNDEFINED STATEMENT NUMBER AT LINE "s16)>s 
C"RETURN WITHOUT GOSUB AT LINE "sl6)» 


 (MARGUMENT FO8 SIN,COSsTAN OR EXP EXCEEDS 158 AT LINE",16)» 


C™INCREMENT UNDEFINED OR ZERO AT LINE "sI6)> 


C™NEXT WITHOUT FOR AT LINE "sI6)> 
C™STORAGE EXCEEDED AT LINE "s#I6)» 
-C™INTEGER OVERFLOW AT LINE 'sT62>+ 
C™INVALID ADDRESS AT LINE "s16)>» 
C™OIVIDE BY ZERO AT LINE "“sT6)> 
C"ITLLEGAL EXPONENTIATION AT LINE "as 


TA)» 


CVFLOATING*POINT OVERFLOW AT LINE "#1T6)» 


O"GNSUBS. NESTED TOO DEEP (MORE THAN 10) AT LINE "“sI6)>» 


C"TLLEGAL EXPONENT ON INPUT AT LINE “sl6)s 


 O™MISPLACED STRING IN INPUT AT LINE "216)» 
OM INPUT STRING TOO LONG AT LINE "sT6)» 
—C™O0UT OF DATA AT LINE “es TO) CMERR22"s 16)5 & ERR22 SHOULDNT OCCUR 


("ILLEGAL MATRIX OPERATION AT LINE “»T6)> 
_C™INVERSE OF ILL=CONDITIONED MATRIX AT LINE "s16)> 


“CVILLEGAL FILE: OPERATION AT LINE "ts 


“ C™INSUFFICIENT SPARE STORAGE FOR MAT OF AT LINE "+I6)s 


16)» 


—C™INPUT FILE NOT ON DISK AT LINE'# 16)» 


CVINPUT FILE = INVALION USER AT LINE"» 16)» 
C"™INPUT FILE IS NON*STANDARD AT LINE'+ 16)» 


COMMENT LAST MESSAGE HERE IS NO- 


CWOUTPUT FILE = DUPLICATE NAME AT LINE™sT6)5 


30 3 


FORMAT DURC’THE FOLLOWING LINE WAS AWAITING OQUTPUT3")» 


FILATCA6s" FILE SEQUENCE NO. 
WRITECTTY*ERREA]»>SSEQ[ CS] )3 
IF INFILTOG THEN WRITECTTY»sFILATS” 


",18)3 


INPUT" »IR)3 


")3 00107800 
00107900 
00108000 
00108100 
00108300 
00108400 
00108500 
00108600 
00108700 
00108800 
00108900 
00109000 
00109400 
3 00109200 
00109300 
00109400 
00109500 
00109600 
00109700 
00109800 
00109900 
%O 00110000 
4 00110100 
%2 00110200 
%3 00110300 
%4 00110400 

00110500 
%6 00110600 
%7 00110700 
£8 00110800 
%9 00110900 
%10 00111000 
%11  oot11100 
%¥12 00111200 
%13 00111300 
%14 00111400 
%15 00111500 
%16 00111600 
417 00111700 
%18 00111800 
%19 00111900 
%20 00112000 
21*22 00112100 
%23 00112200 
%24 00112300 
425 00112400 
426 00112500 
%27 00112600 
428 00112700 
%29 00112800 
%30 00112900 

00113000 

00113100 

00113130 

00113150 

00113170 
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i 


1 


i 


IF NUTFILTOG THEN WRITECTTY*FILAT*» "GUTPUT', 
IF MEL TACPOUSsPIOB) GTR O THEN BFGIN WRITEC 


NR) 
TTY *e# DUR 


WRITECTTYs9sTORC#1) ENDS 


COMMENT 


oe ow 


LOCKCFILIISLOCKCFIL2)360 TO STOP ENDS 


EVAL EVALUATES ARITHMETIC EXPRESSTON 
CREVERSE POLISH DECODER) 


‘ee 


REAL CROCE EEE EVAL: 
_ BEGIN, 
LABEL EQsDONE sEXPON> RPT+SSsSsNUMeVRe ARs SF eUF es ADSS SUsMUsD Ie EX FING 


INMsSTRGAsSTRGCeSTREV; 


SWITCH. TYP RSF IN*NUMs VRo ARS UF 2 SFe FINS E Qs NMP ANs SUs MUP DI v EXs STRGV> 


STRGAsSTRGC 
DEFINE TOPSSTKESTCKIUISTCKSaSTCKM1#Es 


58: 


NUM 


IN: 


A 


STROVE. 
— STRGA®. 
THEN ERROR CYIEAD0Rs ZESTRARCKSOCIFASSTRINSSTRUEFSTACK(O)3 

STRGC?: 
CPROGECSs2))+K ean ATSTRGSLOSOTPSAFSTRINISTRUEZ ADDR E=OZSTACK(O)3 


INM3 | 


VRe 
AR? 


DEFINE STACK(STACK )=STCKI=STCKtISSTKLSTCK]:=STACK13G0 TO SS#3 
COMMENT 
7 . IF 


ADDR RETURNS RESULT ADDRESS CIN STORE IF REAL» STRGS 
STRING). INTERMEDIATE RESULTS ANO ADDRESSES ARE STACKED 
STK AND ADR -RESECTIVELY, 3 


STRINtaFALSESSTCK3=03 


DRESTCK]t=ADDRSCHAS eGET3GO TO TYPLCHA+L]3 

ALSGETIALSEAX6B4+GETSSTACKCCONSTELAI IS 
ADGDRIL=GETISTRINI=TRUESSTACK(Q)3 
Ks=GETZAt=TOPS1F A LEQ 0 OR A GTR STRAREKs1) 


EGET ZKISGETSREPLACE POINTERCSTRGSCOs1] BY POINTER 


STACK(O)3 


SEPGET ARRIOLA ADDR: SLIXK+GET3 STACKCSTOREL ADDR) )3 


KESGETPAtsBrsTOPsIF ARR Ks2] NE@ O THEN BEGIN 


oa B LEQ Oo OR RB GTR ARR(K»2] THEN ERROR(1) ENDS 


i 


IF A LE@ 0 TR A GTR ARREKe11 THEN ERROR(1)3 


ADDREZARREK 20140 Am1 )XARRE Ks 214+B™13STACKCSTORELADORIDS 


SFi 


FIXsSGN*RNDS 
SWITCH. SFUN? 
DEFINE TEST=IF ARS(R)>158 THEN ERRORC8) 43 


-. BEGIN LABEL. SOR+SIF > COF + TAF sATF sEXF #LOFs ABF ENF SFNQ SDC, 


SS1F sCOFs TAF» ATF*EXFs LOFs ABFsENFsSOR> FIX» SGN» RNDS 


ASRGETSRI=TOP3G0 TO SFUNDA#18173 
 SIFS | TESTSRt=SINCRIZGQ TO Des 
OF: TESTZRIecCS(RI} GOTO Dec 
TAF: TESTERISSINCR)/COS(R)3 GO To nc3 
UATF3 RESARCTANORD$ GO TON DCs 
EXFs TESTSRI=EXP(R)$ GO TO DC3 
LOF: IF R LEQ O THEN ERRORC2)4Rt=LNCR)F GO TO DCH 
_. ABFt  RtsapS(R)} GO TO D3 
SOR? STF R-ESS. 0. THEN ERROR(C3)3 Ri=sRe,53 GO TO oC3 
-ENFR RESENTIERCRIZGO TO DCs. 
FIX?  RISENTIERCRIFIF R LSS 0 THEN Rt=R+1#GO To De; 
SGN? Rt=TF R LSS O THEN “1 ELSE IF R GTR O THEN 1 ELSE O3 
GO TO 0C3 
_ RND? XRND? =XRNDX2R993 XRND IF =XRND,C2392313— 
— REeyRNDX2*(C"23)3GN TO DC3 a 
ee pet STACKCR) ENDS a 
COMMENT _ USER FUNCTIONS SECTION 3 
UF Ss REGIN INTEGER ASs#SVSKsSVADDR3 


ARRAY DUME 12204124] >SVSTKsSVADRIOF 2073 


00113200 
00113300 
00113400 
00113500 
00113600 
00113700 
00113800 
00113900 
00114000 
00114100 
00114200 
00114300 
00114400 
00114500 
00114600 
00114700 
00114800 
00114900 
00115000 
00115100 
00115200 
00115300 
00115400 
00115500 
00115600 
00115700 
00115800 
00115900 
00116000 
00116100 
00116200 
00116300 
00116400 
00116500 
00116600 
00116700 
00116800 
00116900 
00117000 
00117100 
00117200 
00117300 
00117400 
00117500 
00117600 
00117700 
00117800 
00117900 
00118000 
00118100 
00118200 
00118300 
00118400 


- 00118500 


00118600 
00118700 
00118800 


oe 
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__DEFINE QUOsIF MF>0 THEN REPLACE PIO8tPIOB BY "™ "As. 


KSEGETSASESCSICSESEFUNCEKIZIF (S29 THEN BEGIN CSt=AS3ERRORC4) ENDS 


BtecOsCOseSPOBLCSI;C2=GETSFOR AS1 STEP 4 UNTIL SUBEZK] DO BEGIN 


COMMENT | SAVE VALUES OF FORMAL PARAMETERS AND STORE ACTUALS3 


RteTOPsCreGETICHSAAXCH+GETIDUME Ae TIEFCIRUML AS2TIERSTORECCISSTORELCI&=R 
ENDS SVADDRTZANDRISVSKI=STCKS 

FOR AtsO STEP 4 UNTIL 20 DO BEGIN SVSTKLATSSSTKLAVS SVADRCAISSADREA 
END3 

COMMENT NOW EVALUATE FUNCTION AND RESTORE FORMAL PARAMETERS; 


RIsEVAL3FOR Atal STEP 1 UNTIL SUBLK] DO STORECDUMCAs11):=DUMLA,213 


FOR AteO STEP 4 UNTIL 20 OO BEGIN STKCA]S=SVSTKLCAIZAORCAT2=5VADREA]I 
ENDS ADDR? =SVADDRSSTCKLSSVSK3 


CSteASsCOL=RsSTACKOR) END? 


EQ! IF STRIN THEN BEGIN ADDR: =A: =ADRISTCKIZSTCKLSSTCK™43 
BSzaADRESTCKIFREPLACE RCO BY ce OE teeter 
FOR 3 WORDSsTR4CBI3GO TO SS ENDS Rt=1O0P3 ADDR! =ADRCSTCKY3 
STORELADOP)! =STKISTCKT =RITRICRI G0 TO. $383 
ADL. RreTOPSRE=SR+TOPS STACK(RDS 
SUL RESTOPSRi=HReTOPSSTACKCRIS 
MUS R&aTOPSRIeRxTOPSSTACKCRI$ 
OT: Re=TOP3 R254 /RxTOPZSTACK(RIG 
co ES Tr=sTOPSRi=TOPSIF T NEQ ENTIERCT) AND R LSS O 
THEN ERRORCI5)3STACK(ReT)3 
: FIN? EVAL SeSTKE1) END? 
aes eee Pine es 
fatale UTP OUTPUTS CONTENTS OF PSEUDO=BUFFER 3 


_... PROCEDURE GUTP3 
BEGIN IF MF>O THEN ERRAR(26)3TR33 


WRITECFLCOUJ > 14° 1080 *I)SREPLACE PIOB:=POU8:=POINTERCIOBE*}]) BY 


MOM POR L123 1F OUst THEN PLOB!=P0UB8!sP0UB4+20 END; 


COMMENT . 
=m MORE FALSE IF END OF STATEMENT 


toe 


BOOLEAN PROCEDURE MORFR : 
BEGIN: INTEGER APETASS COFB2sGETSMOREt=B NEQ OFCO2SA END; 
COMMENT. 


~~ 


mee OUTNUM PLACES NUMBER IN PSEUDO*BUFFER 


PROCEDURE OUTNUMCASF)F VALUE AsFEREAL AS INTEGER F3 
BEGIN CHAI=O;CPISCPe1L3WRITECLOBEL*]*NUMLF Js,A)3 % CARES 
SCAN APRICPR FOR 16 UNTIL #O"5 
IF pELTACCPR» APR) NEQ 16 THEN REPLACE APR BY “E" FOR 43 


IF DELTACPOUBsPIOB) GTR 604Fx4 THEN OUTP3 
REPLACE PICR:PIOR BY POINTERCINBEL11) FOR 14 UNTIL= ABS 


. REPLACE. FIRE Joe BY MON FOR 1 END? 
COMMENT | 


toe 


one gua PLACES " IN QUTPUT BUFFER 


COMMENT 


oe 


=o MATOP PROCESSES MOST MAT STATEMENTS 


PROCEDURE uatoes 


BEGIN INTEGER UsVeWeXo¥oZoToJ3 

COMMENT MAT STATEMENTS CONCERNED HAVE FORMAT 
<N> MAT LET <lL>=<M> 
<N> MAT <L>=<M> 


00118900 
00119000 
00119100 
00119200 
00119300 
00119400 
90119500 
00119600 
00119700 
00119800 
00119900 
00120000 
09120100 
004120200 
00120300 
00120400 
00129500 
00120600 
00120700 
00120800 
00120900 
90121000 
00121100 
00121200 
00121300 
00121400 
00121500 
00121600 
00121700 
00121800 
900121900 
00122000 
00122100 
00122200 
00122300 
00122400 
00122500 
00122609 
00122700 
00122800 
00122900 
90123200 
00123300 
00123400 
00123500 
00123600 
00123700 
00123800 
00123900 
00124000 
00124400 
00124200 
00124300 
00124400 
00124500 
00124600 
00124700 
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THE SECOND CHARACTER IN <M> IS USED To IDENTIFY ACTION TAKEN 
THIS CAN BE + = £€ 8 D RN # 
CRECALL % TS ENDFSTATENENT CHARACTER) ; 


LABEL DONE sANSUsEQMsCONSSEXeEYZSREAL PIVOTSAT3 


INTEGER ARRAY JRE1272)3REAL ARRAY TEMCL!7273 
DEFINE AACAAL + AA2ESTORELARREK sO] +CAAL@1)xUFAA2"1I943 


_CPLSGETICHAS SO; KP =CHCONVONCH)SIF K20 THEN ERROR( 2303 


IF NCH NEQ 41 THEN ERRARC23)7 A =CHCONVONCH)SCHAL=NCH3 

COMMENT SWITCH OCCURS HERE 

ee sigEptont Bos * MATRIX MULTIPLICATION 
<M> [8 <L>*<L> 

HASH. STMRAGE TS USED TO AVOID TROUBLE WITH A=A*B ETC 3 


ONC Me) BEGIN Bi=sCHCONVC(NCH)3 


UPEARRE Ks 1] 1ivic ARREKs2) 1 ewezARRCAstJeysyrsaARRAs2}a43 
YIEARREBolLImLSZF=ARREBe2]e"13IF U NE@ WOR vy NEG Z OR X NEQ Y 


THEN ERRORC23)31F MSTO+CUFL)xCVt1) GTR 1000 THEN ERRORC25)3 


FOR Wt=0 STEP 1 UNTIL U DO FOR Z:=0 STEP 1 UNTIL V DQ BEGIN Riso} 


FOR Yt=0 STEP 1 UNTIL X DO RSSR+STORELARRE ASO] +XxWHWNtY DX 


~STORELARREB* O14YXV4Y4Z)3STORELMSTO+NXVENEZI$ =R END3 


FOR Wt=0 STEP 4 UNTIL U DO FOR Z:=0 STEP 4 UNTIL V DO 
Se ee ene ee EAU S Te rea Ne aa 


GO TO DONE FND?:. 


COMMENT 7 ia + MATRIX AODITION 
<M> 1s <L>+<L> 


we 


_ONCH EN) REGIN 2324560 TO ADSU ENDS 


COMMENT = MATRIX SUBTRACTION 
<M> [5 <i >*<L> 


on 


DNC wen) BEGIN Z12=43G0 TO anSu ENDS 


COMMENT > 0 ALL ONES 
<M> 1S. CON. ; 
ONcwon) BEGIN. Zt=¥ts13¢0 TO CONS END; | 
COMMENT 0) IDENTITY MATRIX 


“ae 


<M> IS ION 


ONCWN") BEGIN ITF ARREKs1) NEQ ARROKs2)] THEN ERROR(23)3 72513 Y2=03 


COMMENT oe E ZERO MATRIX 
ee i <M> TS eR 3 
GO TO CONS ENDS. ON CWE). BEGIN Z2=Y%20360.TO CONS ENDs 

COMMENT R TRANSPOSITION 

<M> TS TRAC<1>) 
HASH STORAGE USED 1) AVOION TROUBLE WITH A=TRNCA) } 


ONC RY) BEGIN CHASENCHSCHAS=NCH3 AL=CHCONVCNCHISIF ASO THEN ERROR(23)3 
UPSARREKs 11945 VESARRIK,2]= LEWSSARRCAs 1 I~ seal as 43 


IF U NE@ X OR V NEQ@ W THEN ERROR(2323 


IF MSTO+(U41)x¢(V41) GTR 1000 THEN ERROR(25)3 


FOR UtsO STEP 4 UNTIL X DO FOR v#=0 STEP 4 UNTIL W DO 


STORECMSTO+UxW4+U4V] 3 ESTORELARRE ASO] +VXX4+V4UT3 


. FOR Uts0 STEP 1 UNTIL x. DO FOR V!=0 STEP 4 UNTIL W DO 
SUPRETARHER S01 Uxwauevy | =STORELMSTO+UXWHU4V]3 


oa TO DONE BNNs 


<M> IS INVC<L>) ; 


_ONCWN') BEGIN CHAS =NCH3CHAt=NCHFAS =CHCONVCNCH)3 
UPSARR CAL IF U NEQ@ ARREKs2] OR U-NEQ@ ARR[As1] OR U NEQ@ ARREA,2} 
‘THEN ERROR(23)3 FOR T4420. STEP 1 UNTIL. Ue? 00 FOR Jisd STEP A OUNTIL Unt 


po. AACIF1eJ+1) 3 P=STORELARREA»O]+1xU4+J75 
FOR visl STEP 4 UNTIL U DO BEGIN PIVOT: 
FOR ft=1 STEP 1 UNTIL U DO BEGIN IF V ca 1 THEN BEGIN 


90124800 
90124900 
00125000 
00125100 
00125200 
00125300 
00125400 
00125500 
00125600 
00125700 
00125800 
900125900 
00126000 
00126100 
00126200 
00126300 
00126400 
00126500 
00126600 
00126700 
00126800 
00126900 
00127000 
00127100 
00127200 
00127300 
00127400 
00127500 
00127600 
00127700 
00127800 
00127900 
00128000 
00128100 
00128200 
00128300 
00128400 
00128500 
00128600 
00128700 
00428800 
00128900 


00129000 


00129100 
00129200 
00129300 
00129400 


00129500 
- 00129600 


00129700 
00129800 
00129900 
00130000 
00130100 
00130200 
00130300 
00130400 


eeeeeeen 


@ © @ @ @ e@ e e e e e e e ae 


FOR Xt=1 STEP 4 UNTIL v"1 09 IF TSIREX] THEN GO TO EX ENDS 00130500 

IF ABSCAACI®V))GTR ARSCPIVOT) THEN SEGIN PIVOTIFAACIeV)SYSSIRIVIGETL 00130600 
END} 00130700 
coe EXS |. ENDSIF ABSCPIVOT) LSS .0001 THEN ERRORC24)3 00130800. 
FOR Jt=1 STEP 4 UNTIL U DO AACY#J)SFAACYsJ)/PIVOTSAACY SV) $E1/P VOTE 00130900 
FOR Tt=21 STEP 1 UNTIL UY DO IF I NE@ Y THEN BEGIN ATtsAACIs VIS 00131000 
AACTsV)2S"AT/PTVOTSFOR Jt=1 STEP 1 UNTIL U DO IF J NEQ@ V THEN 00131100 
AACT» J)P=AACT» JI=ATXAAC YJ) END END; 00131200 
FOR Tts1 STEP 1 UNTIL U DO 00131300 
_..BEGIN FOR Jis1 STEP 1 UNTIL U OO TEMCUI]$sAACIoy)3 00131400 
FOR Jt=1 STEP 4 UNTIL YU DO AACT*IRGJ]FSTEMC UI ENDS 00131500 
FOR Jssi STEP 4 UNTIL U- 00 BEGIN FOR Ut=s1 STEP 41 UNTIL U po 00131600 
TEMCTISSAACIREPIsJ)eFOR Te=t STEP 1 UNTIL U DO AACT®J):=TEMCI] 00131700 
END?GO TO DONE END; 00131800 

% EQUALITY 00131900 

. COMMENT... <M> 18 <b>. i - 3 00132000 
~~ ONC"E) BEGIN Bt=zAsZ2=03 GO To FAM ENDS 00132100 
ERROR(23)3. 00 es ; 00132200 
oo ADS  RESCHCONVONCH)SIF 850 THEN ERROR(23)3 00132300. 
IF ARRCAs1] NEQ ARRCBet] OR ARROCAs2] NEQ ARR[Bs2] THEN ERROR(23)3 00132400 
EQM: UFSARREIKs1LISVIFARRE Ks 2131F YU NEQ ARREAS1] 00132500 

OR Y NEQ ARREAs2) THEN ERRORC23)5 00132600 
FOR T2590 STEP 1 UNTIL U"1 p06 FOR Jt50 STEP 1 UNTIL Vet 00 00132700 
AACT His J#1 SE =STORELARRE A, OTFIXU+JI+ZxXSTORELARRIBsO1FTKUtJ]3 ~ 00132800 
SEGOeTO DONE Fn ce ee ens Bo 00132900 
CONS: WESARRCKe{IsFOR Ts=1 STEP 1 UNTIL ARREKs1] OO 00133000 

FOR Jt=1 STEP 4 UNTIL ARROK»2)] OO AACE*J)$eIF T=J THEN Z ELSE ¥3 00133100 
coe OONES GO TO INCST ENN? 00133200 
LABEL RPTsREMsDATSEXSe¢LETeRLET*#ONX» 00133300 
 INPsPRI*RPRIXPRIsMATSENXsRREAsXREASQDATSFREAPRES®NDAT,S 00133400 
_ STRVsFOL* INTVRe INDEXRNZERSEXPYR» - 90133500 
NMsTABsCOMsSTRSEPRI s CUM OQUF » - 00133600 
TFF sGOT*G0X*GOS*RETsFOXsNEX oF Ds DEF s RE AS ERE As RANS PAGS 00133700 

.. SWITCH OPNISLET*#GNT>GoSrRET» ING e REASEPRI sFOXeNEXe MATS 00133800 
DEF sDAT* RAN» PAGsRESsREMSENX®ENX# TIFF 2 ONX3 00133900 

: 00134000 

_ SWITCH TYPS=XPRI»COMsNMs TABS STR»s INCST#STRVS 00134100 
00134200 

COMMENT ten nna OMe m en (134300 

Be cols etellae athe onl d aie acl kai _ EXECUTE BEGINS HERE Lacan e lee eeewe ewe OL 2Aa 00 
FH OH) 1 24500) 
os : 00134600 
JINTOVREFINTVRSEXPOVRS=EXPVRS ZEROPENZERS INDEXESINDEXRS 00134700 
WRITECTTYsMESS)FRTISTIMEC2)+TIMS TF OUSL THEN WRITECTTY,»DVO)3 00134800 
WRITECFLIQU] + SPCIINRIEZTRESQNATSSROTPSENGOTS=O3 TRACEUNI=TLINGSFALSES 00134900 
_. FORCTSSLVEt=OsXRND@s1O4sCStsACS~1? . 90135000 
— POUBSSPIORP=PNOINTER(CIOBL +] )+20x0U3 00135100 
-. REPLACE POINTERCTORLC #1) BY ™ " FoR 1123 00135200 
a oa ie oe 00135300 
% GET FILES IF NEEDED: 00135400 

IF JNFILTOG THEN 3EGIN FILL FILL WITH ITOCLI]+TIMEC™1)3 00133500 
one SEARCHCFIL ES ANSACHIIRTIF ANSACLO] LEG 0 THEN ERROR(28+ANSALO])3 00135600 
“IF ANSAL37 NEQ@ 10 OR ANSAL4] NEQ 300 THEN ERROR(C29) ENDS 00135700 
IF QUTFILTOG THEN BEGIN FILL FIL2 NITH IOC2),TIMECA@1)3 00135800 

_ SEARCHCFIL2>sANSALC#))STIF ANSALCO) NEG «4 THEN BEGIN 00135900 
WRITECTTYsF 135 7002).(£412361)3 00136000 


IF yUs2 THEN Uts0 ELSE 00136100 


ee er ee i ey ee Se a i iar 9 


wpe Bustaass “osnas, dec se 


ee. |6©@ 


IF 1*xR LEQ TxS THEN GO INCST3 
—  UREGETSULSGETICS£ 264xKU4+GET3 GO TO. -INCST> 


REANCTTY*REPSUSIF U NEQ "YES" THEN ERRORC30) END ENDS 


COMMENT RETURN TO HERE AFTER EACH STATEMENT? 
— REMSDATIINCST? he rae ie 
“EXS3 2293 % FIRST SEE IF EXCESS. TIME 


IF TIMEC2) GTR RT THEN dear WRITE CTTY*#3K23G0 TO ENX- END} 


TF STYPCCSI>19 THEN BEGIN TRACEONSSSTYPLCS1]=203G0 INCST END; 


IF TRACEON THEN TILIN? TRUE 


“USSSTYPLCSISCOrsS°OBICS1#G0 TO OPNCU]S % NOW GO TO APPROPRIATE PLACE 


ee ae ee % LET STATEMENT 
LET! R?=EVALiGO TO INCST? 

% ON STATEMENT 

ONXS UtSEVALS 


FOR Vt=l STEP 4 UNTIL 2xU=2 DO BEGIN St=GET ENDSGO GOTs %C(STET) 


% IF STATEMENT 


: IFF:  RISEVALZIF STRIN THEN BEGIN 
COMMENT STRING IF ; 
Ut=GET3 


_.REPLACE. IPR:=POINTERCSTRGS(™1s*1]) BY POINTERCSTRGSCADDRs #1) FOR 243 — 


RE=zFVALIGO TF TPREPOINTERCSTRGSIADDRs*)) 
FOR. STRGSfw4.01+8 FAV Ust THEN GOT ELSE INCST END; 


SCOMMENT oC oS Boe ee REAL IF 3 


UlSGETSRIZR@EVALS | 
IF R GTR O AND U,L2tiJ=1 THEN GO TO GNT ELSE 
IF R LSS 9 ue Uslitilet THEN GO TU GOT ELSE 


PR ae o AND ,(08 ts4 THEN GO-TO. GOTIGO TO-INCSTE 


% GOTO STATEMENT 


GOT! — -UtSGET#UL264xU+GETFIF UsO THEN ERROR(H)3 
GOX3 NGOTPSNGNT+13TR2CU)3 
COMMENT MONITOR FOR EXCESS LOOPING: 


IF NGOT=100 AND IU NFO 2 THEN BEGIN WRITECTTYs WRN) SREADCTTY* REP oW)3 
yo 4 4 NEO NES* THEN GO TO STOP ENDS 


ie ee . %& GOSUB STATEMENT 
“GOS: SLVETSSLVE4131F SLVE GTR 10 THEN ERRORC17)3 
SVECSLVE]:=CS360 GOT: 
Baste te Ea recat: % RETURN STATEMENT 
RET: TF SLVESO THEN ERRDRC7)3. 
csts =SVECSLVEISSLVERSSLVE%13G0 TO INCSTS , 
% FOR STATEMENT 


“FOKE EORGFeGe Ti phe 
COMMENT sO FOR X CONTROL INFO IS STORED AS FOLLOWS? 
ee 2 3. 4 


ADDR STEP. FINAL FORLINE 
Ae FOR oor. Is EXECUTED “ZERO TIMES IN THE RIGHT CIRCUMSTANCESS 


VisFORXCFORCs I 1ISANNORI StEPORXCFORCs 31 25E VALS 


TISFORXCFORCs2]:=7F MORE THEN EVAL ELSE 13 


WEEFORXEFORC®4]8S5CS3IF T=0 THEN ERROR(9)3 
% ELSE SKIP LOOP 


& NEXT STATEMENT 


00136200 
00136300 
00136400 
00136500 
00136600 
00136700 
00136800 
00136900 
00137000 
00137100 
00137200 
00137300 
00137400 
00137500 
00137600 
00137700 
00137800 
00137900 
00138000 
00138100 
00138200 
00138300 
00138400 
00138500 
00138600 
00138700 
00138800 
00138900 
00139000 
00139100 
00139200 
00139300 
00139400 
00139500 
00139600 
00139700 
00139800 
00139900 
00140000 
00140100 
00140200 
00140300 
00140400 
00140500 
00140600 
00140700 
00140800 
00140900 
00141000 
00141100 
00141200 
00141300 
00141400 
00141500 
00141600 
00141700 
00141800 
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Sn % SPOB STORES (NEXTS LEVEL IN FORK)+416xXFORLINE 
NEX3 US=SPOBECS],C3at4 ys vieSPOB(CSI,£41:3A13 
IF V NE@ FORXEUS4] THEN ERRARC1O)3LS=FORXDUs LTS 
_-THSFORXCUS213RE2STORFLLI+TS 
IF TxR LEQ TXFORX€CUr3)] THEN BEGIN STORELLISSRITRICRIST?SFORXCUS4)3 
10 


GO TO INCSTS. 
% DEFINE STATEMENT 


HEF: USsGETIFUNCLUJs=CS7G0 TO INCST3 
eid Rename aaetis, oP ote Mute % READ STATEMENT 
Be REA? uUtso3 . 
COMMENT THIS SFeTION IS COMPLICATED BECAUSE OF SWITCHING 


OF ATTENTION FROM READ STATEMENT TO DATA STATEMENT AND BACK ETG3 


RRF AS RrsEVALsLI=ANDORZUseCSsyvrzcn3 
IF ROTP=O THEN GO TO QDATICOSSRDTPSCSt=RDAaT; 
 ~. XREAS OO OTF STRIN THEN BEGIN RtsEVALSCStsUs IF NOT STRIN THEN 


 ERRORC20)FREPLACE POINTERCSTRGS(L+*J)BY POINTER(STRGSC ADDR» *]) 
FOR 3 WORDSSTR4CL) END ELSE BEGIN RisEVALSIF STRIN THEN ERROR(20)3 


STORELLIQ=RICSHSUS TRICR) ENDSROTPt=IF MORE THEN CO ELSE Os3COt=v3 
IF MORE THEN GO TO RREA ELSE Go TO INCST3 
COMMENT FIND ANOTHER DATA STATEMENT 

—....9DAT# FOR CS:=ROAT+1 STEP 1 UNTIL MS DO BEGIN 


TF STYPECS1=12 THFN GO TO FREA ENDS 


CStsusERRORC2193 
RDATISCSSCOPSSPOBICSIFGU TO KREA3 


oP REALS | 
% INPUT STATEMENT 
% "STOP" AT START OF INPUT STREAM STOPS A RUN 
cee NPL BEGIN LABEL. RINPSEVINPs RPT» EXPONs DONE SFINPS 


OMFtsGETSIF MP0 THEN BEGIN IF IU=2 THEN ERROR(S)3 
IF PELTACPOUB»PIOB) GTR O THEN BEGIN. 


REPLACE POINTFROIOBEC*1) BY Pous FOR 725 WRITECTTYL STOP) 99s IOBEL*1)3 


REPLACE PIOB:=POUBS=POINTER(IOB(*]) BY " " FOR Li2sIF OU=1 THEN 
PIOR:=POUBS=P1OB+420 ENNDFREADCTTY» 9s1IOBEL*I1)3 
_READCIOBEL*1,REPsV)SIF Ve"STO™ THEN 60 TO $TOP END 
ELSE BEGIN ZtsGETsZt=AaxZ+GETZREADCFIL 1210» TOBEC*))COUDI3 
Dae REAQNCTOBEL* ]»SNUM»IR) ENDS 
REPLACE POINTERCPROGLO,2)) BY POINTERCIORBEL12) FoR 723X220 

RINPs REsEVALSLE=ADORZUPSCSsCStaOsCPesKSCHAL=03 
IF NCHE"%" THEN BEGIN IF MFO THEN BEGIN NRITECTTY>MNPCIF X=0 THEN 1 
ELSE Ol]+PROGEUs,t])3CSt=2U3GN To EXS END ELSE BEGIN 
READCFILGso*IOREL*])COUD]s 
“REPLACE POINTER PROGOO,2]) BY POINTERCIOBEL*}) FOR 723CP3i=1 END END} 
COMMENT © INPUT STRING MAY OR MAY NOT HAVE ."" 3 

EVINPS CPt=CPe13CHAS=NCHSIF STRIN THEN BEGIN 
ONC63) SCAN APRIAPRiSCPRE=POINTERCPROGLO22])4CP FOR 15 WHILE NEQ 43 
ELSE BEGIN CPtsCP=27SCAN APRIAPRI=CPRISPOINTERCPROGLOs21)4CP +4 FOR 15 
WHILE IN ALPHA END? 


-VERSDELTACCPR,APRISIF Vo14 THEN BEGIN CS?=UsERROR(20) ENDS 
STRGSEL*OJ2VEREPLACE POINTER(STRGS(L413) BY CPR FOR V3 


CPrsCP+V+13 CHALENCHSCSESUSTR4ACLISGO FINP ENDS 
TiaRssYt=o3 


tes 


owe ved NPUT. NUMBER 
ONC44) BEGIN Trs1;CHAt=NCH END} 
RPT: ONC26) BEGIN Yt=13CHAtsNCH END3 
IF CHA GEQ 10 THEN GN TO EXPONSIF Y GTR O THEN 
BEGIN Rit=R+CHAx1O*c#Y)3 
Yseyet END ELSE R&=RxtO +CHASCHA!=NCH3 GU TO RPT3 


00141900 
00142000 
00142100 
00142200 
00142300 
00142400 
00142500 
00142600 
00142700 
00142800 
00142900 
00143000 
00143100 
00143200 
00143300 
90143400 
00143500 
00143600 
00143700 
00143800 
00143900 
00144000 
00144100 
00144200 
00144300 
00144400 
00144500 
00144600 
00144700 


00144800 


00144900 
00145000 
00145100 
00145200 
00145300 
00145350 
00145400 
00145500 
00145600 
00145700 
00145800 
00145900 
00146000 
00146100 
00146200 
00146300 
00146400 
00146500 
00146600 
00146700 
00146800 
00146900 
00147000 
00147100 
00147200 
00147300 
00147400 


} 
Ad 


EXPON? IF CHA NEQ 21. THEN GO TO DONESY2s13CHAS=NCHSZ3=03 
ONCHA4)BEGIN Yt="15CHAZ=NCH END ELSE ONC16) CHAL=NCHS 
IF CHA GEQ@ 10 THEN REGIN CStSUs3 ERRORCLR) ENOSZS=CHASCHALZ=NCHS 
‘TF cHa LSS 10 THEN REGIN ZtsZK1O+CHASCHALENCH END} 
RE=Rx1O*CYXZ)} 
DONE? .. Tr. Tat THEN ReemRsDELIMs=72;STORECLIS RRS CS2eUS TRICR)3 
FINPS ee oe NEQ 58 ae CHA nee "2" THEN ERRORC19)3 


* RANDOMISE STATEMENT 
JRANS OO XRANDSSC2xTIME C1) 4¢1)-20232231360 TO INCSTS 
% RESTORE STATEMENT 
ae RES: MPSsGETSIF MFeO THEN RDOTPS=RDAT2=0 ELSE REWINDCFIL193 
GO INCST? oh ev 


% PRINT STATEMENT 
EPRI: MF t=sGET3IF MF>0 THEN BEGIN PBRtsPlOB$ 


_TR3SZtsGET3 72 =64x74GET3 


POURS=POINTERCIOFL *} )3REPLACE ~ B18 ar DENTERG TOR 631) BY " © FOR 72 ENDs 
PRI? CHAL=SGETSIF MF>Q AND CHA=35 THEN ERROR(26)3 


G0 To TYPECHAS1I3 


ZaGET$Zi=64xZ4+GET 
COMMENT * IN PRINT MOVES TO NEXT 14*SPACE COLUMN, 


he —CSEMICOLON IN MINOLE OF PRINT IS JUST DELIMITER)3 
COM: TF MF>C THEN REPLACE PIOSB3PI0B RY “s+ ELSE BEGIN 


VESDELTACPOURSPIOS)31F V GTR 56 THEN BEGIN 


OUTP3SVi=O END ELSE visei4=¢yv Mop 14)3 
FOR Utell STEP 4 UNTIL V DO REPLACE PTOB83PIOR BY t END3 
GO Tn Pinky 


COMMENT ae s PLACE STRING IN PSEUDO=BUFFER 3 


STRt CPleGET3 


_ CPRr=POINTERCPROGECS»21)+cP3 


VE=E72=DELTACPOUBsPIOB)ZWI=GET3” 
IF w GTR v THEN BEGIN REPLACE PIOB!PIOB BY CPRICPR FoR vy; 


OUTPSWE=W=V ENDS 


~ QUOFREPLACE” PIOB: 7PLOR BY CPR: CPR FOR wWiaugs 
GO TO PRIF 
“COMMENT” TAB OVERWRITES ON TELETYPE AND LINE=PRINTER 
RUT REPLACES ON VIDEO UNIT. ; 
Te Ie “MF>O THEN ERROR(C26)2U! SEVAL™ 13URsyU MON. 723 


IF [U+#0U NE9 9 THEN BEGIN TR3SWRITECFLEOUIENGIs 9s 1080"})3 
- REPLACE PMUB RY " " FOR 72 ENDSPTOBSsPOUB+U3 GO TO PRT 


STRVI RtsEVALJQUQSREPLACE PIOBIPIOB BY POINTERCSTRGSLADDR» 12) 
FOR STRGSCADDR,OIFQUNIGO Th PRI 
NMP QUTNUMCEVAL®0)3@0 TO PRIS 
XPRI: IF MF>O THEN BEGIN REPLACE PIORB BY "y."3 


NREeNR4+103REPLACE POINTERCTOFL10]) BY NR FOR 8 DIGITS3. 
__WRITECFIL2. 10% [OF (#1) COUF IP 1997=P8R3POUBESPOINTERCIOBL#])+*20x0U END 


ELSE QUTP3GO TO INCST3 
% PAGE STATEMENT 
oo PAGE. UF _OUS4. THEN WRITECLINCPAGEI)§G0 TO INCST3 
— | | % MAT STATEMENT 
| oe K MAT 4SREADs 2=PRINT» 32MATOP> 4=SCALAR MULTIPLE 
MATE BEGIN INTEGER FoF sG3LABEL QDATsFREAsXREA*RREAG 


LPSGETSIF L=1 THEN BEGIN EL=CS3Lt=GETSUI=GET#VE=GET 


FOR wi=0 STEP 1 UNTIL Usm1 An FOR X$50 STEP {1 UNTIL v"1 00 BEGIN 


00147500 
00147600 
90147700 
00147800 


90147900 


00148000 
00148100 
00148200 
00148300 
00148400 
90148500 
00148600 
00148700 
00148800 
00148900 
00149000 
00149100 
00149200 
90149300 
00149400 
90149500 
00149600 
90149700 
00149800 
00149900 
00150000 
00150100 
00150200 
00150300 
00150400 
00150500 
00150600 
00150700 
00150800 
00150900 
00151000 
00151100 
00191200 
00151300 
00151400 
00151500 
00151600 
00151700 
00151800 
00151900 
00152000 
00152100 
00152200 
00152300 
00152400 
00152500 
00152600 
00152700 
00152800 
00152900 
00153000 
00153100 


: 00153200 


IF Sse QO THEN GO. TO. ODATS COMERDTPFCSEeROAT 
REA: STORETARRELs OJ#WXARRILs 21+X] =EVALS 00153300 
SopeRRTE MORE THEN CO ELSE 9340 TO RREAS 00153400 
— @OAT! = FOR CSteRNDAT+#1 STEP 1 UNTIL mS DO REGIN IF STYPECS] 90153500 
#12 THEN GO TO FREA ENDICSI=ESERROR(2L)3 00153600 
FREA! RDAT@=CS3COteSPOBLCSI+G0 To xREA} 00153700 
2 — RREAS ENDS CStsE3GN TO INCST END; 00153800 
IF [x2 THEN REGIN 00153900 
TF MELTACP OURS PIOR) GTR O THEN DUTP, 00154000 
LSSGETIUISGETSVISGETFIESSGETIGI=14"EX73FOR Wis0 STEP 1 UNTIL UMd 00 00154100 
BEGIN FOR Xt=C STEP 4 UNTIL Vet D0 BEGIN OQUTNUMCSTORELARRELs0]4- 00154200 
WXARRE Ls 27+] -E 3 PIORS sPOUR+GXC(DELTACPOUB,PIOB)I<1) OLy G #41). 00154300 
ae ENDSOUTP END#GQO TO INCST ENDS 00154400 
IF |.=3 THEN MATOP3 00154506 
LisGETSRiskVALSWSEGET? 00154600 
IF ARRE Lei] NEQ ARR( Wed] OR ARREL»2) NEQ ARREWe2d. THEN ERROR(23)3 00154700 
FOR Uts0- STFP $ UNTIL ARREIL»1]"*1 DO FOR vVisQ STEP 1 UNTIL ARREIL»2)"1 00154800 
00 STORE CARRIL QJ UXARREL SAT +V 11 SRXSTORECARRE Ws O1+FUXARRI Le 2) 4V)3 00154900 
GO TO LINCST END? . 00155000 
% STOP OR END STATEMENT 00155100 
ENX! TR351F DELTACPOURSPIOB)>0 THEN OUTPS 00155200 
_LOCKCFILIFLOCKCFIL223G0 To STOPS . 00155300 
OUD? IF Z=O THEN FRRORC21)5TR2C0Z)3CS227360 EXS3 00155400 
QUF? IF Z=0 THEN ERROR(C 26)3TR20Z)3CS2=Z360 EXS3 00155500 
INTVR! ERRORCL2)3TNDEXR!? ERRORC1393 00155600 
OZER: ERRORCL4)FEXPVR!E FRRORC16) END} 00155700 
STOP: WRITECTTYsSTPse "RUN ")3G0 TO SQURCEINS 00155800 
— COMMENT 00155900 
ee PROGRAM WRITTEN BY MALCOLM CROWE 00156000 
“LANGUAGE DETAILS DECIDED BY TAN MILLER AND JOHN FURLONG 00156100 
_ MATRIX INVERSION CORRECTED BY ARTHUR MACDIVITT 3 00156200 
00156300 
FINSH? END. 00156400 


@®eeee5ue3weeeeeeeweeeenweweeeé 4 


